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[1,0] ABSTRACT 

THIS DIAGNOSTIC WILL TEST - 124K OF MOS OR CORE MEMORY 
ON ANY PDP-11 FAMILY COMPUTER, SOME TESTS ARE WORST CASE 
FOR MOS AND SOME FOR CORE, BUT ALL TESTS ARE ALWAYS RUN, 
THE TESTS OCCUPIES LESS THAN 2K OF MEMORY SO IT CAN BE 
USED TO TEST A SYSTEM WITH ONLY 4K OF MEMORY. IF ONLY 4K 
EXISTS, HOWEVER, THE ABSOLUTE LOADER IS NOT SAVED, 

THIS PROGRAM CAN BE RUN UNDER XXDP, APT AND ACT MONITORS. 
ON PROCESSORS WITH NO HARDWARE SWITCH REGISTER, SOFTWARE 
SWITCH REGISTER m LOCATION 176, 

CI .13 GETTING STARTED 

IF NO HARDWARE SWITCH REGISTER SET LOCATION 176 TO OBTAIN SWITCH 

OPTIONS, 

TO START! 

A a SET SWITCH REGISTER * 00000 

B, START AT 200. 

C, THE MEMORY LIMITS WILL BE PRINTED, 

D, SEE SECTION 4,4 FOR REST OF PRINTOUTS EXPECTED, 

E, "END PASS #01" WILL BE TYPED LAST, AND THE TEST WILL 
RESTART. 

F, TO HALT THE TEST, TYPE CONTROL-C, THIS WILL INSURE THE 
PROGRAM IS RELOCATED BACK TO LOWER MEMORY. 

BE PATIENT, THE CONTROL-C IS ONLY RECOGNIZED AT THE END 
OF THE CURRENT SUBTEST. 

G, IF AN UNEXPECTED HALT OCCURS SEE SECTION 6.0. IF AN 
ERROR # IS TYPED SEE SECTION 6.2 B 

1CAUTIONI BEFORE "DIGGING" INTO THE LISTING READ 
SECTION 9, 

SWITCH SETTING SUMMARY (SEE SECTION 4.1 FOR DETAILS) 
BIT15U00000) HALT ON ERROR 

BIT14(040000) LOOP IN SUBTEST DEFINED BY BITS <3|0> 
BIT13(020000) INHIBIT ERROR PRINTOUTS 

BIT12(010000) ENABLE TESTING ABOVE 28K (MEMORY MANAGEMENT) 

BIT1U004000) ENABLE PARITY TESTING 

BIT10C002000) HALT AFTER EACH SUBTEST 

BIT09(001000) INHIBIT PPOGRAM RELOCATION 

BIT08(000400) TYPE FIRST FAILING BIT ERROR PER 4K. 

BIT07 (000200) ENABLE LONG GALLOPING TEST 

BIT06(000100) INHIBIT MEMORY SIZING 

BIT05(000040) INHIBIT "END PASS #XX" PRINTOUTS 

BIT04(000020) INHIBIT PRINTOUTS 

BIT03-BIT00 BEGINNING TEST NUMBER. 
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[2 S 0] REQUIREMENTS 

12,1) EQUIPMENT 

STANDARD 11 FAMILY COMPUTER WITH A CONSOLE OUTPUT DEVICE 
AND FROM 4K TO 124K OF MEMORY « 

(2.2) STORAGE 

PROGRAM STORAGE « 0000 • 7744, PROGRAM EXPANDS FOR ERROR 
HISTORY AND TO SAVE ABSOLUTE LOADER OR XXDp CHAIN MONITOR, 
(SEE SECTION 9, FOR DETAILS) 

[3,0] LOADING PROCEDURE 

USE STANDARD PROCEDURE FOR PDP-11 ABSOLUTE BINARY FORMATTED TAPES, 



(4,0] STARTING PROCEDURE 

C4.1) SWITCH SETTINGS 

SOFTWARE SWITCH REGISTER m LOCATION 176 
BIT15U00000) HALT ON ERROR 



BIT14(040000) 
OBIT13(020000) 

^BIT12(010000) 

| BITIK004000) 
/BIT10(002000) 

?BIT09(001000) 

CiBlT08(000400) 
C?BIT07(000200) 
[)BlT06(000l00) 



LOOP ON TEST DEFINED BY SWITCH REGISTER BITS <3l0> 
INHIBIT ERROR PRINTOUTS 

ENABLE TESTING ABOVE 28K, (MEMORY MANAGEMENT) 

ENABLE PARITY MODULES, 

I "PARITY" WILL BE TYPED 

HALT AFTER EACH SUBTEST 

1PRESS CONTINUE TO DO NEXT SUBTEST 

INHIBIT PROGRAM RELOCATION 

1 IF SET LOCATIONS 430-7776 WILL NOT BE 

I TESTED , 

TYPE FIRST FAILING BIT IN EACH 4K BANK ONLY, 
I THE TOTAL ERROR COUNT (UP TO 377) WILL 
I BE SAVED IN THE ERROR HISTORY. 
ENABLE LONG GALLOPING TEST. 
l"GLP" WILL BE TYPED. 

ICAUTIONJ INCREASES TEST TIME BY FACTOR OF 25, 
INHIBIT MEMORY SIZING, 

1 THE MEMORY LIMITS MUST BE SETUP IN THE FOLLOWING LOCATIONS I 
(VALUES TO TEST 0-8K ARE SHOWN) 
(LOWTWOaLOCATION 322) 



LOWTWOl 
LOWADD l 



f STORE BITS 17H6 OF LOW TEST ADDRESS 
I STORE REST OF LOW TEST ADDRESS 
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BIT05C000040) 
BIT04C000020) 

BIT03-BIT00 



HIGHTWOl f STOPE BITS 17 1 16 OF HIGH TEST ADDRESS 

HIGHADDl 37776 f STORE REST OF HIGH TEST ADDRESS 

NOTE I HIGHADD MUST BE SET TO A 4K BOUNDARY. (E.G. 37776) 

INHIBIT "END PASS #XX" PRINTOUTS 

A, INHIBIT ERROR HISTORY PRINTOUTS. THE 
ERROR HISTORY CAN STILL BE OBTAINED 
BY TYPING CONTROL-C, 

B. INHIBIT PRINTOUTS "PARITY" ? "GLP" # "TSTt 3 BNK XX". 

NUMBER OF TEST (0-13) TO PUN FIRST. 

I NORMALLY USED WITH BIT14 (LOOP ON TEST) 



[4.2] CONTROL-C OPTION 

CONTROL C PC] AFTER COMPLETION OF THE CURRENT TEST. 

THE ERROR HISTORY (SEE SEC. 6.3) WILL BE 
TYPED. THE PROGRAM WILL HALT IN LOWER MEMORY. 
PRESSING CONTINUE WILL RESTART THE DIAGNOSTIC, 

C4.3] STARTING ADDRESS* 200 

RESTART ADDRESS ■ 250 OR 200 

RESTART AT 200 CLEARS PASS COUNT ($PASS) AND PRINTS "DZKMA-B" TITLE, 



[4, 4) PROGRAM AND/OR OPERATOR ACTION 



1) LOAD PROGRAM INTO MEMORY USING ABSOLUTE LOADER. 

2) SET OPTIONS (SEE SEC. 4.1) 

3) START THE PROGRAM AT 200 

4) THE FOLLOWING IS AN EXAMPLE WITH EXPLANATIONS 
OF THE PRINTOUTS EXPECTED. 



"XXXXX-YYYYY" 



; ADDRESSES OF TEST BOUNDARIES. 



"PARITY" 
"GLP" 



fIF PARITY OPTION SELECTED 

I IF LONG GALLOPING OPTION SELECTED, 
j PRINTED AS TSTH IS ENTERED. 



"TST13 BNK 00" 
"TST13 BNK 01" 
ETC.., 

"RELOC M 

"TST13 BNK 00" 



I ENTERING BANK 00 IN TEST 13, 
I AND BANK 1,.. 

I UNTIL ALL BANKS (UP TO 6) HAVE BEEN TESTED, 

j THE DIAGNOSTIC RELOCATES TO HIGHEST 

I BANK UNDER TEST. AND RUNS TST0-TST1 3 AGAIN, 

J TESTING BANK 00 IN TEST 13 (RELOCATED STATE.) 

I NOTE-ONLY BANK 00 IS TESTED IN THE RELOCATED STATE, 



"END PASS #XX" 



> WHERE "XX" IS THE PASS NO. 
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ADDITIONAL PRINTOUTS 

"NO PAR" J PRINTED IF 

"NO MNG" | PRINTED IF 

I MANAGEMENT 



PARITY SELECTED BUT NOT AVAILABLE, 

GREATER THAN 28K AND NO MEMORY 
AVAILABLE, 



4,5 LONG GALLOP OPTION 

NORMAL WORST CASE SR SETTING m 0000, FOR LONG GALLOP 
SR « 200, LONG GALLOP OPTION SHOULD ONLY BE USED IF AN 
MOs MEMORY PROBLEM Is SUSPECTED AND NO OTHER SUBTESTS 
WILL FAIL, THE TEST TIME IS INCREASED 25 TIMES, 



C5,0J PROGRAM HALTS (NORMAL* ERROR) 



THIS IS A LIST OF EXPECTED HALTS. IF THE TEST HALTS 

IN A LOCATION NOT IN THIS LIST AND ITS LESS THAN 776, IT 

MAY BE DUE TO A DEVICE INTERRUPTING, 

NOTE THE HALT AT END OF SUBTEST AND HALT ON ERROR HALT LOCATIONS 
MAY BE RELOCATED, THE ACTUAL LOCATIONS THEY ARE IN CAN BE FOUND 
BY SUBTRACTING 500 FROM 1664CSWHALT] AND ADDING THIS DIFFERENCE TO THE 
CONTENTS OF SAVR6 CLOC. 346] , 



PC 



REASON 



RECOVERY 



112 

146 
1666 
6132 
6216 



TRAP TO LOC, 4 



POWER FAIL 



HALT AT END OF 
TEST SWITCH SET. 

HALT ON ERROR 
SWITCH SET, 

CONTROL-C TYPED 
OR FATAL ERROR 
OCCURRED 



EXAMINE R6, IT CONTAINS 
THE POINTER TO THE PC 
WHERE THE TRAP OCCURRED, 

POWER UP WILL RECOVER 
IF IN CORE MEMORY, 

PRESS CONTINUE TO GO TO 
NEXT SUBTEST, 

PRESS CONTINUE. 



PRESS CONTINUE TO RE- 
START TEST, 



[6,03 ERRORS 

C6.1] ERROR MESSAGE FORMAT 

THE ERROR PRINTOUT CONSISTS OF 6 OCTAL WORDS IN THE FOLLOWING 
FORMAT! 
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"LOCATION GOOD BAD PC ERROR 



PASFLG" 



"ADR ERR" WILL BE PRINTED PRIOR IF AN ADDRESSING ERROR IS SUSPECTED. 
"PAR ERR" WILL BE PRINTED PRIOR IF A PARITY ERROR TRAP OCCURRED 
ICAUTIONI IF PARITY ERROR THE GOOD DATA PRINTOUT IS THE 
PARITY MODULE UNIBUS ADDRESS THAT FAILED, 



WHEREl 

LOCATION* 

GOOD s 

BAD m 

PC s 

ERROR s 

PASFLG m 



FAILING MEMORY LOCATION 
GOOD DATA [DATA THAT WAS EXPECTED] 
BAD DATA [DATA THAT WAS FOUND} 
PROGRAM COUNTER AT ERROR CALL, 

FAILING ERROR NO, (SEE SEC 6.2 - ERROR DICTIONARY) 
CONTENTS OF LOCATION PASFLG, THIS MAY NOT BE RELEVANT, 
(SEE SEC, 6,2-ERROR DICTIONARY) 



| THE TEST WILL CONTINUE AFTER THE ERROR PRINTOUT, 

I "NO MNG" WILL BE TYPED IF TESTING ABOVE 28K SELECTED AND NO MEMORY 
i MANAGEMENT IS FOUND, 

I "NO PAR" WILL BE TYPED IF PARITY OPTION SELECTED 
1 AND NO PARITY MODULES WERE FOUND, 

(FATAL ERRORS) 

"ERROR IXXXXXX" WILL BE TYPED WHERE "XXXXXX" IS 

THE ERROR NUMBER. THE DIAGNOSTIC WILL USUALLY HALT ON THIS TYPE 
OF ERROR, SEE SEC, 6,2 -ERROR DICTIONARY • FOR DESCRIPTIONS 
OF THE ERROR, 



(APT MODE ERRORS) 

ALL ERRORS ARE TREATED AS FATAL UNDER APT, WHEN AN 
ERROR OCCURS UNDER APT A "1" IS STORED IN LOCATION 
$MSGTY AND THE PROGRAM HALTS AT FATHLT , 

$FATAL CONTAINS THE ERROR NO. IN THE LOW BYTE AND 
THE FAILING BANK NO, UNDER TEST IN THE HIGH BYTE, 



(6,2) ERROR DICTIONARY 

THIS IS A LIST OF ERROR NUMBERS PRINTED AND POSSIBLE 
CAUSES FOR THE ERROR 

THE ROUTINE NAME WHERE THE ERROR CALL ORIGINATED IS GIVEN IN 
BRACKETS, 

NOTE- "BAKPAT" REFERS TO THE BACKGROUND PATTERN WRITTEN INTO MEMORY 
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FOR VARIOUS TESTS. IF PARITY SELECTED IT HAS A VALUE * 376 ,ELSE*377 
"SWAPPED BAKPAT" « 77000 IF PARITY SELECTED, ELSEs77400 



.ENDR 



| ERROR # i CBUSER] BUS ERROR TRAP TO LOC. 4 OCCURRED 

I THIS ERROR IS NOT PRINTED AND IS FOR "APT" USE, 

; ERROR # I | [TSTTRP] FATAL DATA ERROR 

I LOCATIONS 0000-430 FAILED l'S + # S TEST. 
fR0 s GOOD DATA 

fRl ■ ADDRESS OF FAILING LOCATION. 

| ERROR « 2 | (APTSIZ] APT FATAL ERROR 

lAPT MEMORY TABLES NOT SETUP CORRECTLY. 

f CHECK LOCATIONS $MAMS1 [430] TO $MADR4[446] 

!i FOR CORRECT MEMORY SIZE DATA. 

I ERROR « 3 i (TSTSIZJ OPERATOR FATAL ERROR 

I SELECTED MEMORY SIZE GREATER THAN 28K, BUT 

|SR BIT12 (10000) NOT SET, 

f SET BIT12 AND RESTART AT 200. 

! ERROR * 4 | (TSTSIZJ OPERATOR FATAL ERROR 

f LOWEST SELECTED TEST LIMIT IS HIGHER THAN 

f HIGHEST TEST LIMIT. SET LOCATIONS "LOWTWO" [322] 

I TO "HIGHADD" [330] CORRECTLY AND RESTART 

I AT 200, 

| ERROR # 5 { (TST0] TEST SEQUENCE ERROR 

I TST0 HAS BEEN ENTERED OUT OF SEQUENCE 
ITESTN SHOULD « 00 

I THE DIAGNOSTIC HAS BEEN CORRUPTED. 
I IF POSSIBLE SELECT ANOTHER 4* BANK 
{ BANK AND RERUN THE TEST ON THE FAILING MEMORY, 

{ERROR # 6 | (TST0] DUAL ADDRESSING ERROR 

fFOR THIS ERROR THE GOOD DATA PRINTED IS AN 
I ADDRESS. THIS IS THE ADDRESS SELECTED WHEN 
I THE SAME DATA WAS WRITTEN INTO THE FAILING 
f LOCATION, CHECK BANK SELECT CIRCUITRY 

{ERROR * 7 | CTST0) ADDRESS AND DATA ERROR 

{IDENTICAL TO PREVIOUS ERROR EXCEPT THE DATA 
{ WRITTEN INTO THE FAILING LOCATION WAS IN 
{ ERROR ALSO, 

{ ERROR # 10 { (TST0J DATA ERROR 

{IF BAD DATA ■ 0000 COULD BE AN ADDRESSING 

{ERROR , ELSE COMPARE GOOD AND BAD DATA FOR FAILING BITS, 

{ERROR # 11 { (TST0) ADDRESSING ERROR 

{THE FAILING ADDRESS RESPONDED BUT IS NON- 
EXISTENT. MAY BE A DUAL ADDRESSING PROBLEM, 
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I ERROR * 12 I CTST1] TEST SEQUENCE ERROR 

fITEST [404] SHOULD * 01 

I THE DIAGNOSTIC HAS BEEN CORRUPTED, 

I ERROR # 13 | CTSTU DATA ERROR 

f COMPARE GOOD AND BAD PRINTED DATA, FAILING 
I DATA BITS MAY SHORTED OR SWAPPED, 

j ERROR # 14 i CTST2J TEST SEQUENCE ERROR 

fSTESTN [404] SHOULD ■ 02 

I THE DIAGNOSTIC HAS BEEN CORRUPTED, 

I ERROR # 15 | (TST2] ADDRESS OR DATA ERROR 

f IF H ADR ERR" NOT PRINTED THEN THE BYTE SELECT 
jCIRCUITRY PROBABLY FAILED , 

f ERROR » 16 I CTST33 TEST SEQUENCE ERROR 

fITESTN [404] SHOULD ■ 03 

I THE DIAGNOSTIC HAS BEEN CORRUPTED, 

I ERROR « 17 ! CTST3] DUAL ADDRESSING ERROR 

} DUAL ADDRESSING PROBLEM FOR BITS THAT DIFFER 
I IN GOOD AND BAD DATA PRINTOUT. 

I ERROR # 20 f CTST3) DUAL ADDRESSING ERROR 

f FOR THIS ERROR THE DATA PRINTED IS AN ADDRESS. 
I THIS IS THE ADDRESS THAT WAS SELECTED WHEN THE 
I SAME DATA WAS WRITTEN INTO THE FAILING LOCATION, 

} ERROR # 21 > [TST3] DUAL ADDRESSING ERROR 

f SAME AS ERROR #20 EXCEPT DIFFERENT DATA 
I (SWAPPED BAKPAT) WAS WRITTEN, 

I ERROR * 22 | (TST4J TEST SEQUENCE ERROR 

fITESTN [404] SHOULD * 04, 

I THE DIAGNOSTIC HAS BEEN CORRUPTED, 

I ERROR # 23 j CTST4] DUAL ADDRESSING ERROR 

I IF PASFLG s THEN THE FAILING LOCATION 
I AND FAILING DATA ARE DUAL ADDRESSES, 



I ERROR # 24 

I ERROR # 25 
f ERROR # 26 



! CTST5] TEST SEQUENCE ERROR 

jSTESTN [404] SHOULD » 05 

I THE DIAGNOSTIC HAS BEEN CORRUPTED, 

I (TST5 ] DATA ERROR 

f DATA WRITE OP READ ERROR, 

I [TST5] MARCHING 1'S AND f S DATA ERROR 

I IF PASFLGB0 FAILED MARCHING l'S * 0'S IN 

f MAX TO MIN DIRECTION. 

I IF PASFLG* 1 FAILED MARCHING 1 # S > 0*5 IN 

I MIN TO MAX DIRECTION 

I IF PASFLG*3 FAILED MARCHING # S ♦ 1*S IN 

I MAX TO MIN DIRECTION. 



| ERROR # 27 



I CTST5] MARCHING 1 'S AND 0'S DATA ERROR 
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f ERROR # 30 



I ERROR # 31 



I ERROR # 32 



I ERROR # 33 



I ERROR * 34 

I ERROR # 35 

I ERROR # 36 

I ERROR # 37 

I ERROR # 40 

f ERROR « 41 



IDENTICAL TO PREVIOUS ERROR EXCEPT THE DATA IS 
CHECKED IMMEDIATELY AFTER BEING WRITTEN. 

CTST63 TEST SEQUENCE ERROR 
STESTN SHOULD a 06 

THE DIAGNOSTIC HAS BEEN CORRUPTED, 
(TST6) VOLATILITY /REFRESH TEST ERROR 



IF PASFLG®0 
IF PASFLG&i 



IF PASFLGss2 



IF PASFLG&3 



BAKPAT WRITE OR READ ERROR. 
THE FAILING LOCATION CHANGED WHILE 
ANOTHER LOCATIONS WAS WRITTEN FOR 
2 MS. THE OTHER LOCATION IS SAVED 
IN SAVLOC [352] 

SWAPPED BAKPAT (77400 OR 77000) 
WRITE OR READ ERROR. 
SAME AS IF PASFLG«2 EXCEPT 
THE DATA IS SWAPPED BAKPAT. 



CTST7) TEST SEQUENCE ERROR 
STESTN SHOULD * 07 

THE DIAGNOSTIC HAS BEEN CORRUPTED, 

CTST7 ] SHIFTING DIAGONAL DATA ERROR 

IF PASFLG®0 BAKPAT WRITE OR READ ERROR, 

IF PASFLG«1 BAKPAT READ CHECK ERROR 

IF PASFLGb GREATER THAN 1 BUT EVEN VALUE THEN | 

THE FAILING LOCATION COULD NOT BE WRITTEN INTO, 
IF PASFLGs GREATER THAN 1 BUT ODD VALUE THEN I 

THE FAILING LOCATION WAS WRITTEN CORRECTLY 

BUT LOST THE DATA, 

CTST10] TEST SEQUENCE ERROR 
STESTN SHOULD * 10 

THE DIAGNOSTIC HAS BEEN CORRUPTED, 

CTST10] BAKPAT DATA ERROR 

BAKPAT WRITE OR READ ERROR INTO THE FAILING LOCATION, 

CTST10] READ RECOVERY DATA ERROR 

THIS ERROR CAN BE REPORTED BY TST10 AND TST11, 
(THEY SHARE CODE) , SEE STESTN (404) FOR WHICH TEST FAILED, 
FOR BOTH TESTS COMPARE THE GOOD AND BAD DATA AT THE FAILING 
LOCATION TO SEE WHICH BITS FAILED, 

CTST10] READ RECOVERY DATA ERROR 

IDENTICAL TO THE PREVIOUS ERROR EXCEPT SWAPPED BAKPAT IS 
USED AS WRITE AND READ DATA. 

CTSTll) TEST SEQUENCE ERROR 
STESTN SHOULD * H 

THE DIAGNOSTIC HAS BEEN CORRUPTED, 

[TST1 2 ] TEST SEQUENCE ERROR 
STESTN SHOULD ■ 12 

THE DIAGNOSTIC HAS BEEN CORRUPTED, 
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I ERROR # 42 



> ERROR # 43 



I ERROR # 44 



J ERROR # 45 



I ERROR « 46 



I ERROR # 47 



> ERROR # 50 



| ERROR # 51 



I ERROR « 52 



| ERROR # 53 



I (TST12) WORST CASE CORE TEST DATA ERROR 

I IF PASFLG»1 COMPARE GOOD AND BAD DATA FOR FAILING BITS. 

|IF PASFLG*2 THE FAILING LOCATION WAS WRITTEN AND READ 

I WITH GOOD DATA, BUT FAILED READ CHECK 

f READING IN THE MIN, TO MAX DIRECTION, 

I IF PASFLG«3 SAME CONDITIONS AS PASFLG»2 EXCEPT FAILED 

I DOING THE READ CHECK FROM MAX TO MIN DIRECTION, 

j CTST1 2 ) WORST CASE CORE TEST DATA ERROR 

I IDENTICAL TO PREVIOUS ERROR EXCEPT THE DATA WRITTEN 

I AND READ IS COMPLEMENTED, 

I (TST13) TEST SEQUENCE ERROR 
lITESTN SHOOULD ■ 13 

f THE DIAGNOSTIC HAS BEEN CORRUPTED, 

I (TST1 3) WRITE RECOVERY TEST DATA ERROR 

I IF PASFLGs0 COMPARE GOOD AND BAD DATA FOR FAILING BITS, 

I IF PASFLG*77400 DATA ERROR FOUND WHILE DOING A SECOND READ CHECK, 

|IF PASFLG«77402 DATA ERROR FOUND IN FAILING LOCATION AFTER 

I SMALL TEST PROGRAM RUN IN FAILING BANK, 

> (TST13) WRITE RECOVERY TEST DATA ERROR 

f DATA ERROR FOUNDJUST BEFORE THE SMALL TEST 

I WAS TO BE RUN IN THE FAILING BANK, TO AVOID "BLOWING" UP 

f WHEN THE SMALL TEST IS RUN TST13 IS ABORTED, 

I (TST13) WRITE RECOVERY TEST DATA ERROR 

f IDENTICAL TO ERROR #XXX EXCEPT THE DATA WRITTEN 

I AND READ IS DIFFERENT ,( 1 77667 ) , 

1177667 IS THE COMPLEMENT OF "JMP (R0)« (110) WHICH IS 
I THE ESCAPE FROM THE SMALL TEST PROGRAM RUN IN THE BANK 
I UNDER TEST, 

I (PARERR) PARITY TRAP ERROR 
I PARITY TRAP TO 114 OCCURRED, 

I FOR THIS ERROR PRINTOUT THE "GOOD DATA" IS ACTUALLY 

f THE FAILING PARITY MODULE UNIBUS ADDRESS, 

I SAVLOC C352) CONTAINS THE PC WHERE THE TRAP OCCURRED, 

I (PARITY) PARITY TRAP FATAL ERROR 

I A PARITY TRAP TO 114 OCCURRED, BUT NO PARITY MODULES COULD BE FOUND 
I WITH AN ERROR BIT (BIT15) SET. 

! CNOMMJ OPERATOR FATAL ERROR 

I TESTING ABOVE 28K WAS SELECTED, BUT NO MEMORY MANAGEMENT 

fOPTION WAS FOUND, 

f RESET SWITCH OPTIONS AND RESTART AT 200, 

I (PARITY) OPERATOR FATAL ERROR 

I PARITY TESTING WAS SELECTED BUT NO PARITY MODULES 

I WERE FOUND, 

f RESET SWITCH OPTIONS AND START AT 200 a 



.REPT 
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[6,33 ERROR HISTORY 



LOCATIONS IN MEMORY ARE SET ASIDE TO COLLECT A HISTORY 
OF THE FAILING BITS IN A PARTICULAR MEMORY BANK, THIS 
DATA IS COLLECTED FOR EVERY ERROR REGARDLESS OF SWITCH 
SETTINGS. 

NORMALLY THE DATA IS OUTPUT AT THE END OF TESTING, BUT 
IF CONTROL-C IS TYPED IT IS OUTPUT AT THE END OF THE 
CURRENT TEST. 

THE ERROR HISTORY IS INTENDED TO HIGHLIGHT IF THE ERRORS 
ARE DUE TO 1 BIT FAILING OR ONLY ADDRESS ERRORS. 



ERROR HISTORY FORMAT I 
ERROR BANK COUNT 

WHERE I 

ERROR s BIT THAT FAILED [NUMBER OF THE FAILING BIT IN DECIMAL I.E. 

0-15 WILL BE TYPED OUT OR THE WORDS "ADR ERR" OR "PAR ERR" WILL 
BE TYPED OUT IF ADDRESS ERROR OR PARITY ERROR WAS SEEN 
IN THE SPECIFIC BANK OF MEMORY 
BANK s 4K MEMORY BANK IN WHICH THIS FAILURE WAS SEEN 

A FOR TO 4K, A 1 FOR 4 TO 8K AND SO ON 
COUNT « NUMBER OF TIMES THIS MEMORY BANK FAILED, 

(377 IS MAXIMUM FAILURE COUNT RECORDED,) 



[6,4] ERROR RECOVERY 



IF THE PROGRAM IS HALTED AFTER REPORTING AN ERROR IT CAN EITHER 
BE CONTINUED OR RESTARTED AT 200 OR 250 (SEE SEC 4,2) . HOWEVER FOR 
CPU'S THAT DESTROY CONTENTS OF REGISTERS AFTER COMING TO A HALT 
THE PROGRAM SHOULD ONLY BE RESTARTED, 



[7.0] RESTRICTIONS 



MEMORY UNDER TEST SHOULD BE CONTIGUOUS. FOR SYSTEMS HAVING NON- 
CONTIGUOUS MEMORY THE MEMORY BOUNDARIES SHOULD BE DEFINED BY THE 
OPERATOR. (CONTIGUOUS MEMORY IS DEFINED AS A MEMORY THAT CAN BE 
BOTH READ AND WRITTEN IN CONSECUTIVE LOCATIONS.) 



[8,0] MISCELLANEOUS 



[8.1] 



ADDRESS/BANK RANGES IN OCTAL AND DECIMAL 
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THIS REFERENCE TABLE CROSS REFERENCES THE MEMORY BANK NO,S, 
THE RANGE AND THE PAR USED WHEN MEMORY MANAGEMENT IS ENABLED, 
IT IS ALSO USEFUL TO SHOW STARTING ADDRESSES IN A PAR- 
TICULAR 4K BANK, 



BANK NO 


DECIMAL 


WW. 1 Ail 


[PAGE ADDRESS 


n it f Y ewe 1 ! 1 ! 




R A N f* F 


H H W UCi 


USED/CONTENT 


UNIBUS 





- 4K 


000000-017776 





0000 


772340 


% 


4K * 8K 


v £ K> %/ %t %f — k/ J f f r O 


NOT 


USED 




o 

<s 


fV — 1 £ fV 


10^101010x7—103 1 1 1 


NOT 


USED 




j 


1 4«*- — 1 ©*\ 


M&6l0l0t0i«ffl'7'7'7'7<k 
10OW10 10 10-10 / / / / 


NOT 


USED 




4 


1 Ofv — « t?rv 


« aaafflffl.i 4 *? "7 "i c 
1 1 1 / /7b 


NOT 


USED 






/WIN.** %K> 


1 410*91010 — 1 J / / / O 


NOT 


USED 




o 


« *tlV — « o I\ 


4 AanaOin, i tint 
1 1 3 / / / 


NOT 


USED 




7 


* o i\ — J * rv 




1 


1600 


772342 


8 


32K-36K 


200000-217776 


2 


2000 


772344 


9 


J 1% ** 


A d\0\OlQio m £ j / / / D 


3 


2200 


1 t f% 1 A C 

772346 


A If 


"f — * 1 1> 


ZS10101010 — ZD / /7b 


4 


2400 


772350 






/Ok? 1010 10 — Z III 1 


5 


2600 


1 f O ^ SL *» 

7 7/352 


12 


48K-52K 


300000-317776 


6 


3000 


772354 


1 3 

i 3 


□ * IV — 3 U |\ 


J 4101010)0 — 3 J 1 1 1 


1 


3200 




1 4 


KfcK w 60tK 

a o i\ io 


J 4 010 10 10 — J D f / / 


2 


3400 




15 


60K-64K 


360000-377776 


3 


3600 




1 6 


g J\ w g p f\ 


4 010101010) «4 1 1774 
tH0 10 10 10 W — *» 1 / / / 


4 


4000 




17 


68K-72K 


420000-437776 


5 


4200 




18 


72K-76K 


440000-457776 


6 


4400 




19 


76K-80K 


460000-477776 


1 


4600 




20 


80K-84K 


500000-517776 


2 


5000 




21 


84K-88K 


520000-537776 


3 


5200 




22 


88K-92K 


540000-557776 


4 


5400 




23 


92K-96K 


560000-577776 


5 


5600 




24 


96K-100K 


600000-617776 


6 


6000 




25 


100K-104K 


620000-637776 


1 


6200 




26 


104K-108K 


640000-657776 


2 


6400 




27 


108K-112K 


660000-677776 


3 


6600 




28 


112K-116K 


700000-717776 


4 


7000 




29 


116K-120K 


720000-737776 


5 


7200 




30 


120K-124K 


740000-757776 


6 


7400 




31 


124K-128K 


760000-777776 


7 


7600 


772354 


NOTES! 













1 t THE PAR (PAGE ADDRESS REGISTER) CONTENTS ARE SHOWN IN A TEST THAT SELF SIZES. 
IF THE LIMITS OF TESTING ARE SET BY THE OPERATOR AND 
IF THE BANK IS ABOVE 28K PAR NO, 1 WILL BE SET TO THE 
BEGINNING PAGE. FOR EXAMPLE IF THE TESTING WAS TO 
BEGIN WITH BANK 8 PAR NO, 1 WOULD EQUAL 2000, PAR 2 
WOULD EQUAL 2200 ETC. 
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[8,2] EXECUTION TIME 

HERE ARE SOME TYPICAL EXECUTION TIMES. 

LSIM1 AND 4K|B 100 SECS. 
LSI-11 AND 8K|* 5 MINUTES. 



[8,2] PASS COUNT AND TEST NO. LOCATIONS 

$PASS [406 J b PASS COUNT - CLEARED BY START AT 200. 

$TESTN [404] * CURRENT TEST NO, AND RELOCATION, PARITY FLAGS, 
WHERE; 
LOW BYTE m TEST NO, 
IF BIT15 ■ 1 TEST IS RELOCATED 
IF BIT13 « 1 PARITY UNDER TEST, 



[8,4] STACK POINTER 

THE STACK STARTS AT 500 WHEN THE PROGRAM IS NOT RELOCATED, 
SAVR6[346] CONTAINS THE STACK STARTING VALUE WHEN THE DIAGNOSTIC 
IS RELOCATED. 

SAVR6 ALSO CONTAINS THE STARTING ADDRESS OF THE PROGRAM WHEN 
IT IS RELOCATED, 

[8,5] POWER FAIL 

THE DIAGNOSTIC CAN BE POWER FAILED WITH NO ERRORS, TO USE, 
START THE TEST AS USUAL AND POWER DOWN THEN UP AT ANY TIME , 
THE PROGRAM SHOULD TYPE "P" AND CONTINUE TO RUN FROM TEST 
IN THE SAME STATE [I,E f STATE OF RELOCATION] AS IT WAS BEFORE 
THE POWER WAS INTERRUPTED, HOWEVER IF THE DIAGNOSTIC WAS IN 
A MEMORY THAT CAN NOT HOLD DATA WITH THE POWER DOWN THEN THE 
PROGRAM WILL NOT RECOVER FROM POWER FAIL, 



[9,0] PROGRAM DESCRIPTION 



[9,1] NARRATIVE FLOW CHART 

THE TEST IS LOADED INTO LOCATIONS 0000 - 7744 BUT 
EXPANDS DEPENDING ON HOW MUCH MEMORY IS UNDER TEST. 
SEE STEP 6, BELOW FOR A DETAILED EXPLANATION. 

THE FOLLOWING NARRATIVE FLOW CHART DESCRIBES MAJOR 
PROGRAM OPERATION, FOR THE PERSON WHO NEEDS DETAIL THE 
TAG ASSOCIATED WITH THE OPERATION IS GIVEN IN BRACKETS, 

FOR THIS DISCUSSION SWITCH SETTINGS ARE IGNORED AND EVERYTHING IS 
ASSUMED ENABLED, 
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It [START] PRINT M DZKMA-A H TITLE 

2 9 CTSTRP] SAVE DATA FROM LOCATIONS 0-376 
INTO 7744-10314, 

3 V CTSTRP) TEST LOCATIONS 0-376 BY WRITING AND 
READING l'S AND # S, NOTE THIS IS THE ONLY 
EXPLICIT TESTING OF THESE LOCATIONS. 

4 V CSLFSIZ) SIZE MEMORY BY WRITING INTO SUCCEEDING 
MEMORY LOCATIONS UNTIL TIMEOUT TRAP TO 4 OCCURS , 
ENABLE MEMORY MANAGEMENT AND SIZE MEMORY ABOVE 
28K, 

5, CTYPSIZ) TYPE MEMORY TEST LIMITS. 

6, CSETSTK] SPACE IS SAVED AT THE END OF THE TEST 

FOR AN ERROR HISTORY. FOR EACH 4K BANK 18 BYTES ARE SAVED 
IN THE FOLLOWING FORMAT t 

| ADR ERR! PAR ERR J 
1BIT15 1 ERR CNT1 
IBIT13 1BIT14 1 
IBIT11 IBIT12 I 
IBIT09 JBIT10 ! 
JBIT07 JBIT07 i 
IBIT05 1BIT06 1 
1BIT03 IBIT04 i 
1BIT01 JBIT02 1 
i UNUSED 1BIT00 1 

if Greater than 4K under test the absolute loader 

(300 ADDRESSES) IS APPENDED. IF GREATER THAN 4K 
AND UNDER XXDP CHAIN MODE 5674 (OCTAL) ADDRESSES 
ARE APPENDED TO THE TEST. THIS SAVES THE XXDP 
MONITOR, AND ALLOWS THE LOCATIONS OCCUPIED BY XXDP 
TO BE TESTED, 

7, CCLRMEM) CALL "PARITY" ROUTINE AND IF SELECTED, 
ENABLE ALL PARITY MODULES, "PARMAP" CLOC, 352] 
CONTAINS A MAP OF PARITY MODULES FOUND. IF 

MODULE 172336 BIT 15 IS SET, IF #172334 FOUND BIT 14 
IS SET ETC, , 

8, CCLRMEM] CLEAR MEMORY CURRENTLY UNDER TEST 

9, CCONT] DISPATCH TO TST0 

10, CTST0) EXECUTE TEST 0, SEE SECTION 10 FOR TEST 
DESCRIPTIONS, 

11 , CTSTSCP] COMES HERE AFTER EACH TEST AND IF 
CNTRL-C TYPED THEN GO TO ERROR HISTORY PRINTOUT, 
IF SR»2000 THEN HALT 

IF SRM0000 THEN LOOP ON TEST DEFINED BY <3l0> 
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„ 's 

) 



ELSE CONTINUE TO NEXT TEST, 

12. CTST1-TST121 EXECUTE TST1-TST12 EACH TIME 
GOING TO STEP 9, 

13. CTST13] TEST 13 IS DIFFERENT FROM TESTS 0-12, 
BECAUSE IT IS A SMALL PROGRAM ACTUALLY RUNNING 
IN THE MEMORY UNDER TEST. BEFORE THIS SMALL 
PROGRAM IS STARTED "TST13 BNK XX" IS TYPED, 
THIS IS DONE IN CASE THE PROGRAM FAILS , THE 
USER CAN THEN AT LEAST TELL WHICH BANK OF MEMORY 
FAILED, 

14. CRELOC] THE PROGRAM RELOCATES TO HIGH MEMORY 

TO TEST THE LOCATIONS it OCCUPIES, (430-ENDPRG) , 

WHERE "ENDPRG" Is THE CONTENTS OF ENDSTK[306] , 
I,E THE LAST PROGRAM ADDRESS, NOTE "RELOC" IS 
PRINTED JUST PRIOR TO THE ACTUAL RELOCATION, 

' '*\ 

15. TESTS 0*13 ARE RUN AS DESCRIBED ABOVE EXCEPT ) 
ONLY BANK LOCATIONS 430-ENDPRG ARE TESTED, . ; 

16. CRELOER] RELOCATE THE PROGRAM BACK TO LOWER 
MEMORY, 

17. [LOWER] IF CONTROL-C TYPED GO PRINT ERROR 
HISTORY, 

18. CTSTMM] IF MEMORY MANAGEMENT SELECTED AND AVAILABLE, 

RUN TESTS 0*13 ON THE FIRST 24K SLICE ABOVE 28K, 

19. CCONTMM] CALL "UPMM« TO UPDATE MEMORY MANAGEMENT 
PAR REGISTERS TO POINT TO THE NEXT 24K SLICE OF 
UPPER MEMORY, 

20. CMAXADR) REPEAT STEPS 18 ♦ 19 UNTIL ALL 
MEMORY ABOVE 28K IS TESTED, 

21 . CENDPAS] PRINT ERROR HISTORY OF FAILING BITS 

22. UEOPJ DISABLE PARITY MODULES. 
PRINT "END PASS #XX" 



C9.23 TEST TITLES 

SEE THE TEST HEADINGS IN THE LISTING FOR DETAILS ON EACH TEST, 

TEST 0! TEST FOR PROPER BANK SELECTION 

TEST If CHECK DATI/DATO LINES 

TEST 21 TEST MEMORY FOR HOLDING DATA AND BYTE SELECTION 

TEST 31 DUAL ADDRESS TEST A 

TEST 4| DUAL ADDRESS TEST B 

TEST 51 MARCHING l'S AND 0'S 

TEST 6| CELLS* VOLATILITY TEST 



) 
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TEST 7$ SHIFTING DIAGONAL 

TEST 10$ READ RECOVERY GALLOPING TEST THROUGH EVERY 64TH CELL 
TEST lit READ RECOVERY LONG GALLOPING/FAST GALLOPING TEST 
TEST 12t WORST CASE TESTING FOR CORE MEMORY 
TEST 13S WRITE RECOVERY TEST 



[10,0] RXDP S. ACT11 & APT OPERATION 
RXDP CHAIN MODE 



OPERATION IS IDENTICAL TO STAND ALONE EXCEPTS 

1, NO "DZKMA-B" TITLE IS PRINTED. 

2, NO TEST 13 PRINTOUTS SUCH AS "TST13 BNK 00", 

3, THE PROGRAM ALWAYS HALTS ON ERROR. 

4, AT THE END OF TEST ($ENDAD) CONTROL IS RETURNED TO 
THE RXDP CHAIN MONITOR VIA LOCATION 42. 

ACT11 



OPERATION IS IDENTICAL TO STAND ALONE EXCEPTS 

1 9 NO PRINTOUTS EXCEPT ERROR PRINTOUTS. 
2, THE PROGRAM ALWAYS HALTS ON ERROR. 

3 e AT THE END OF TEST UENDAD) CONTROL IS RETURNED TO 
THE ACT11 MONITOR VIA LOCATION 42. 

APT 



OPERATION IS SIMILAR TO STAND ALONE EXCEPTS 

1 . THE SOFTWARE SWITCH REGISTER BECOMES LOCATION 422 (SSWREG) . 

2. AUTO SIZING CAN BE INHIBITED BY SETTING BIT 7 OF BYTE 
LOCATION 421 CSENVM) . 

3. ALL PRINTOUTS CAN BE INHIBITED BY SETTING BIT 5 OF 
BYTE LOCATION 421 CSENVM), 

4. ALL ERRORS CAUSE LOCATION 400 (SMSGTY) TO BE SET ■ 
0001 AND THE PROGRAM HALTS AT LOCATION 6214 (FATHLT) . 
LOCATION 402 ($FATAL) CONTAINS THE ERROR NO. IN THE 
LOW BYTE AND THE FAILING MEMORY BANK NO, IN THE HIGH 
BYTE, 

APT MANAGER INFORMATION 

THE FOLLOWING IS AN EXAMpLE SCRIPT TO TEST A 4* MEMORY, 
IT IS RECOMMENDED THAT DIFFERENT SCRIPTS BE USED FOR 
DIFFERENT MEMORY SIZES TO SAVE AUTO SIZING TIME, 

THE EXAMPLE ASSUMES YOU ARE LOGGED INTO THE APT MONITOR, 



READY 



DZKMA MACYtl 27(732) 05-AUG-76 1 3 1 43 PAGE 4-14 
DZKMAB , PI 1 



RUN APPLU 

APT 11 PAPER TAPE PROGRAM LOAD UTILITY 

THE FOLLOWING COMMANDS ARE VALID 

ED EDIT A PROGRAM 

LI LIST A PROGRAM 



COMMANDS ED 

PROGRAM NAME TO EDITS EXAMPL 

DO YOU WANT TO LOAD A NEW REV OF THE PROGRAM ( Y/N) ? N 
FIRST PASS PUN TIME IN SECONDS <110>l 
LONGEST TEST TIME IN SECONDS <10>f 
ADDITIONAL RUN TIME IN SECONDS <0>1 
WHICH ETABLE DO YOU WISH TO EDIT? A 
SOFTWARE ENVIRONMENT<000>! 1 
ENVIRONMENTAL MODE<000>| 240 
SWITCH 1 <000000>I 
SWITCH 2 <000000>t 
CPU OPTIONS<0000>! 
MEMORY TYPE 1 <000>I 
MAXIMUM ADDRESS<00000000>J 
MEMORY TYPE 2 <000>t 
MAXIMUM ADDRESS<00000000>l 
MEMORY TYPE 3 <000>l 
MAXIMUM ADDRESS<00000000>I 
MEMORY TYPE 4 <000>S 1 
MAXIMUM ADDRESS<00000000>l 17776 
WHICH ETABLE DO YOU WISH TO EDIT? 
COMMAND I OFF 



f ENDR 



J 
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3CQ 0020 



1013 
1018 
(1) 
(1) 
(1) 
(i) 
(1) 
(1 ) 
(1) 
(1) 
(1) 
(1) 
1019 
1020 
1021 
1022 
1054 
1055 
1063 
1064 
1071 



,ABS 

.NLIST MD,MC,CND 



.LIST ME,BIN,SEQ,LOC 
.TITLE DZKMA 

l#COPYRIGHT CO JANUARY 1976 
I ^DIGITAL EQUIPMENT CORP. 
|#MAYNARD, MASS, 01754 

»* 

I #PR0GRAM BY PERVEZ ZAKI 
>* 

|#THIS PROGRAM WAS ASSEMBLED USING THE PDP-11 MAINDEC SYSMAC 
| ^PACKAGE (MAINDEC-11-DZQAC-C1) ,MAR 24, 1976. 

I* 

SSWRsi60000 » f HALT ON ERROR, LOOP ON TEST, INHIBIT ERROR TYPOUT 



I I TRAP CATCHER OF , + 2 AND HALT FOR 0-776 LOCATIONS 



1072 




000240 


SCOPE 


sNOP 




1073 
1074 




000042 




,s42 




1075 


000042 


000000 




, WORD 


jFOR ACT/XXDP 


1076 












1077 






.SBTTL 


ACT11 HOOKS 


(1) 
(2) 






j I *«»«**»*«»»««*«*»«»*«*«»«***»*#***«***»»»#»««»»###*««*«»*»*«*»* 


(1 ) 






f HOOKS 


REQUIRED 


BY ACTtl 


(1) 




000044 




SSVPCa. 


J SAVE PC 


(1) 




000046 




.346 




CI) 


000046 


000156 




SENDAD 


IlDSET LOC.46 TO ADDRESS OF SENDAD 


(1) 




000052 




,s52 




(1) 


000052 


040000 




.WORD 


40000 ||2)SET LOC.52 TO 40000 


(1) 




000044 




.■JSVPC 


H RESTORE PC 


1078 












1079 




000070 




,870 




1080 


000070 


012737 00 


0136 000024 PWRDNI 


MOV 


•PMRUP, P«24 


1081 


000076 


000000 




HALT 
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1084 
1085 
1086 
1087 
1088 
1089 
1090 
1091 
1092 
1093 
1094 
1095 
1099 
1100 
1101 
1102 
1103 
1104 
1105 
1106 
1107 
1108 
1109 
1110 
1111 
1112 
1113 
1114 
1115 
1116 
1117 
1118 
1119 
1120 
1121 
1122 
1123 
1124 
1125 
1126 
1127 
1128 
1129 
1130 
1131 
1132 
1133 
1134 
1135 
1136 
1137 
1138 
1139 
1140 
1141 
1142 



000110 
000112 



005237 
000000 
000000 



000120 
000122 
000126 
000130 
000132 
000134 



000136 
000142 
000146 

000150 
000152 



000156 
000160 
000162 
000164 
000166 



000154 030411 



,al04 

I GET HERE IF AN ILLEGAL TRAP TO LOC , 4 OCCURRED, 

BUSERI INC P#SMSGTY |TELL APT FATAL ERROR#000 

HALT |*EPROR# TRAP TO LOC, 4 OCCURRED, 

HALT ;IN CASE CONTINUE PRESSED, 

1 114 AND 116 ARE RESERVED FOR PARITY TRAP VECTORS, SETUP IN 

IPOUTINE "BEGIN" . 

.8120 



* WRITE MEMORY BACKGROUND 



THIS ROUTINE IS USED TO WRITE THE MEMORY BACKGROUND TO 
THE VALUE STORED AT LOCATION BAKpAT, THE ROUTINE ASSUMES 
THAT R4 IS POINTING TO THE LOWEST LOCATION AND R5 TO THE 
HIGHEST LOCATION TO BE WRITTEN, THE PROGRAM LEAVES THE 
SUBROUTINE WITH R0 CONTAINING THE CONTENTS OF BAKPAT, 



010401 

013700 000316 

010021 

020105 

103775 

000207 



013706 000350 
012700 006066 



WRTMEMj MOV 
MOV 

2S I MOV 
CMP 
BLO 
RTS 



PWRUPl MOV 
MOV 
ADD 



R4,R1 

9#BAKPAT,R0 

R0,(R1)+ 

Rl,R5 

2$ 

PC 



9«SAVR6,SP 

#PNTMES-BEGIN,P 

SP,R0 



004710 
000120 



JSR PCCR0) 
.ASCIZ /P/ 
, EVEN 



BR 



START 



004710 
000240 
000240 
000240 
000430 

000176 
000176 000000 



I* SERVICE XXDP/ACT11 
SENDAD! JSR PC,(R0) 

NOP 

NOP 

NOP 

BR RESTRT 



|SET Rl TO LOWEST LOCATION UNDER TEST 
I LOAD R0 WITH THE CONTENTS OF LOCATION BAKPAT 
I STARTING FROM THE LOWEST LOCATION WRITE THE 
I MEMORY TO BACK GROUND PATTERN 

I RETURN FROM THE SUBROUTINE 



I RESTORE STACK POINTER 

J 

j GET THE INDIRECT ADDRESS OF LOCATION TPCRLF 
I RELATIVE TO LOCATION OF DIAGNOSTIC IN THE CORE 
I GO TO THE TYPE ROUTINE AND TYPE CR» LF AND A "P" 



I RETURN TO ACT11/XXDP MONITOR 

I IF QUICK VERIFYbRESET ELSE NOP 

I IF QUICK VERIFY-CLR #-1 ELSE INC #0 

I IF QUICK VERIFYbBR ,«4 ELSE NOP 

I REPEAT TEST UNDER ACTll/XXDP 



SWREGI 



.■176 

.WORD 



I | «»«««*«#*•»*#«»•««•«•**#«•«««««»«*»«••*#*#«*«»»»•«*•»•«**#*«»«» 

, SBTTL START AND RESTART ROUTINES 

>« RESTART AT 200 TO CLEAR APT TABLES 

I » ##♦*#**#*#####♦####♦#•*####*#############•#♦######*############ 
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SEQ 0022 



1143 


000200 


013706 


000350 


1144 


000204 


012703 


000412 


1 145 


000210 


005043 




1 1 46 


00021 2 


022703 


000400 


1147 


000216 


001374 




1 148 


000220 


105737 


000042 


1 149 


000224 


00101 1 




1150 


000226 


105737 


000405 


1151 


000232 


100406 




1152 


000234 


004767 


006320 


1153 


000240 


055104 


046513 




000246 


000102 




1154 








1 155 








1 156 


000250 


012704 


007744 


1157 


000254 


012703 


000346 


1158 


000260 


012305 




1159 


000262 


012306 




1160 


000264 


010600 




1161 


000266 


012746 


000340 


1 162 


000272 


010046 




1 163 


000274 


000002 




1164 








1 165 








1 166 








1167 








1168 








1169 








1170 








1171 








1172 








1173 
(1) 
(2) 








(1 ) 
(2) 
( 1 ) 




000276 




(1 ) 




000024 




( 1 ) 


000024 


000200 




( 1 ) 




000044 




(1) 


000044 


000276 




(1) 
(2) 
(1) 




000276 




(1) 
(1) 
(1) 


000276 






CD 


000276 


000000 




(1 ) 


000300 


000400 




(1) 


000302 


000012 




(1) 


000304 


00015b 




(1) 


000306 


000000 




(1) 


000310 


000024 




1 174 








1175 








1 176 




000405 





MOV 


MSAVR6r SP 


f SETUP STACK POINTER , 


MOV 


*tUNIT,R3 


f CLEAR THE APT MAILBOX FROM $MAIL TO IDEVCT 


CLP 


»(R3) 


fCLEAP A MAILBOX LOCATION 


CMP 


MMAIL,R3 


I DONE? 


BNE 


1$ 


f BRANCH IF NO 


TSTB 


$842 


lACTH MODE? 


BNE 


RESTPT 


j BRANCH IF YES 


TSTB 


Ml TESTN + 1 


j ARE WE RELOCATED? 


BMI 


RESTPT 


; BR IF YES- SINCE TPCRLF IS RELOCATED ALSO- 


JSR 


PCTPCRLF 


fPRlNT TITLE 


.ASCIZ 


✓DZKMA-B/ 




, EVEN 






MOV 


#ENDPRG, P4 


I LOAD R4 WITH THE ADDRESS OF THE END OF THE PROGRAM 


MOV 


•SAVR5,P3 


fCAUSE R3 TO POINT TO THE LOCATION SAVR5 


MOV 


(R3)+,R5 


I RESTORE R5 


MOV 


(R3)+, SP 


I AND RESTORE R6 JUST IN CASE IT IS A RESTART 


MOV 


SP,P0 


fPLACE THE STARTING ADDRESS OF THE TEST IN R0 


MOV 


#340, -(SP) 


f SET HIGH PRIORITY FOR RTI 


MOV 


R0,«(SP) 




RTI 




jGO TO "START" "MAY BE RELOCATED , 



;IF RELOCATED SEE LOCATION SAVR6 FOR START, 



.SBTTL APT PARAMETER BLOCK 

I } »»*#***»««»«»«#•«»»**#«*«««*«*««*«*«««*#«»»»»»**»*»»»«***««#*«* 

fSET LOCATIONS 24 AND 44 AS REQUIRED FOR APT 

f I ###•############♦################################*#•###*#*»## #^ 

.SXs. if SAVE CURRENT LOCATION 

8 s24 If SET POWER FAIL TO POINT TO START OF PROGRAM 
200 ff FOR APT START UP 

.=44 ff POINT TO APT INDIRECT ADDRESS PNTR , 
SAPTHDP fiPOINT TO APT HEADER BLOCK 
.«.$X i i RESET LOCATION COUNTER 
I f **«*«*#»•»»«»**»*«»*#**«*»**•******«*»«#»'»«»**»»««*««#*»«*««*«* 

fSETUP APT PARAMETER BLOCK AS DEFINED IN THE APT-PDPil DIAGNOSTIC 
I INTERFACE SPEC. 



$APTHDi 

SHIFTS: 

SMBADRi 

STSTMl 

SPASTMi 

SUNITMi 



, WORD If TWO HIGH BITS OF 18 BIT MAILBOX ADDR, 

, WORD SMAIL if ADDRESS OF APT MAILBOX (BITS 0-15) 

.WORD 10. If RUN TIM OF LONGEST TEST 

.WORD 110, | i RUN TIME IN SECS. OF 1ST PASS ON 1 UNIT (QUICK VERIFY) 

.WORD if ADDITIONAL RUN TIME (SECS) OF A PASS FOR EACH ADDITIONAL UNIT 

.WORD 8ETEND-8MAIL/2 If LENGTH MAILBOX-ETABLE( WORDS) 



PELbSTESTN+1 



I IT WILL BE IF THE PROGRAM IS IN THE LOWER 



DZKMA MAC Yl 1 27(732) 05-AUG-76 13143 PAGE 5-3 
DZKMAB.Pll APT PARAMETER BLOCK 



1177 
1178 
1 179 
1 180 
1181 
1182 
1183 
1184 
1185 
1186 
1187 
1 188 
1189 
1190 
1191 
1192 
1193 
1194 
1195 
1196 
1197 
1198 
1199 
1200 
1201 
1202 
1203 
1204 
1205 
1206 
1207 
1208 
1209 
1210 
1211 
1212 
1213 
1214 
1215 
1216 
1217 
1218 
1219 
1220 
1221 
1222 
1223 
1224 
1225 
1226 
1227 
1228 
1229 
1230 
1231 
1232 



000312 
000312 



000314 
000315 



000310 
000312 

000314 



177560 
177562 
177564 
177566 
177572 
000377 



000320 
000322 



000324 000000 
000326 000000 



,sMMAVA+l 



,s$ ADEFP+1 
.sSTRTDI+2 
.sLOWBNK+2 

.*PASFLG+2 
, sENDSTK+2 



STRTDI I 
LOWBNKl 
PASFLGi 

ENDSTKl 

PBNKf 
DECWRDl 

,*DECWRD+2 

TYPCNTf .BYTE 

SAVKBBl .BYTE 



TKSa 
iKBBs 
fTPS* 
ITPB* 

SR0* 
BAKPATi 



177560 

177562 
177564 
177566 
177572 
.WORD 



SWAPATj .WORD 
RELBOTi BEGIN-50 



fCORE, BIT 6 OF THE BYTE WILL BE SET IF THE 
I PROGRAM IS IN A RELOCATED STATE AND BIT 5 
; WILL BE SET IF PARITY BITS ARE BEING TESTED 

ITHIS BYTE IS USED TO DETERMINE IF MEMORY 
f MANAGEMENT IS AVAILABLE OR NOT 



f THIS BYTE IS USED TO DETERMINE IF THE 

j TYPE OUT OF ERROR HAS BEEN ENABLED OR NOT 



JTHIS BYTE DETERMINES IF THE PROGRAM HAS FOUND 
jA PARITY ERROR 



ITHIS BYTE IS USED TO DETERMINE IF THE 
f PROGRAM HAS ENCOUNTERED ADDRESS ERROR 



; LOWER BYTE OF THIS WORD GIVES THE PASS NUMBER FOR 

I THE SPECIFIC TEST WHEREAS THE UPPER BYTE 

• HAS BEEN USED BY DIFFERENT TEST FOR DIFFERENT PURPOSES 



f HOLDS BANK UNDER TEST FOR "TST BNK XX" PRINTOUT, 



f THIS BYTE DETERMINES THE NUMBER OF WORDS 
f TO BE TYPED 

I THIS LOCATION IS USED TO SAVE THE CHARACTER 
I HIT BY THE OPERATOR 

I ALSO IS USED AS TEMp IN ROUTINE SGTSIZ, 



f BACKGROUND PATTERN WRITTEN TO MEMORY, 

f HOLDS LOWEST TEST ADDRESS WHEN RELOCATED, 



I | »»»«•»*««»««•«»«»«*#•*#*«**•«••«•«•«*«»»«*»•«••••«*«»«#«»«««#** 

f LOCATIONS TO BE MODIFIES IF LIMITS SET BY OPERATOR 

LOWTWOl f HOLDS BITS 17 1 16 OF LOW TEST ADDRESS 

LOWADDl f HOLDS BITS 15t0 OF LOW TEST ADDRESS 
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SEQ 0024 



123 3 






1234 


000330 


000000 


1235 


0003 32 


037776 
















nan 1 1 A 

0DV Sit 


r> V V (0 10 v 


12 39 


aaa lit. 


017776 


1 240 






1241 


aaa * a a 

WW 10 J 1\o 










1243 


000342 


000000 


1244 


000344 


000000 


1245 


000346 


000000 


1246 






1247 






1248 


000350 


000500 


1249 


000352 


000000 


1250 


000354 


000000 


1251 


000356 


000000 


1252 


000360 


000000 


1253 






1254 






1255 






1256 






1263 






1264 






1265 







HIGHTWOt {HOLDS BITS 1 7 1 1 6 OF HIGH TEST ADDRESS 

HIGHADDi 37776 j HOLDS BITS 1510 OP HIGH TEST ADDRESS 

} | «*»**««««»»»*»#»«»»*«*«»*»««**«»««*«*««•#«««**###«*•«»«*««***«« 



$HIMAX| 
8MAXMI 17776 



{HOLDS BITS 17116 OF MAXIMUM AVAILABLE MEMORY 
iHOLDS BITS 1510 OF MAXIMUM AVAILABLE MEMORY 



MAXMEMi , WORD |MAXIMUM CURRENT VIRTUAL MEMORY UNDER TEST 

SAVMAX! .WORD 
SAVR4 I .WORD 
SAVR5 ! . WORD 

I# SAVR6 POINTS TO WHERE THE PROGRAM STARTS EVEN WHEN RELOCATED, 

SAVR6 I , WORD BEGIN {CONTAINS START ADDRESS WHEN RELOCATED ALSO , 

PARMAPl {MAP OF PARITY MODULES UNDER TEST, 

SAVLOCi | TEST 6 STORES ERROR INFO HERE 

PARSPI ISAVE SP DURING PARITY ERROR TRAp, 

PARPSI {SAVE PSW DURING PARITY ERROR TRAP, 

{NOTE-PARSP +PARPS ARE NEEDED SINCE THERE IS 
) IS NOT ENOUGH ROOM ON THE STACK (500-452) AND 
ISO THE STACK MUST BE RESET IN THE PARERR ROUTINE, 
UN THIS CRUDE FASHION, 

|*364-400 IS USED AS A STACK AREA BY ERRCHK ROUTINE FqP ERROR HISTORY PRINTOUT 
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1267 
1268 



,8400 

APT MAILBOX-ETABLE 



% | ♦#**###########»#*###•*#*###########*##############*########### 





.EVEN 








000400 


SMAILl 






II APT MAILBOX 


000400 000000 


SMSGTYl 


.WORD 


AMSGTY 


1 1 MESSAGE TYPE CODE 


000402 000000 


SFATALf 


.WORD 


AFATAL 


I | FATAL ERROR NUMBER 


000404 000000 


STESTNj 


.WORD 


ATESTN 


II TEST NUMBER 


000406 000000 


SPASSI 


.WORD 


APASS 


IIPASS COUNT 


000410 000000 


SDEVCTi 


.WORD 


ADEVCT 


llDEVICE COUNT 


000412 000000 


SUNITI 


.WORD 


AUNIT 


Ill/O UNIT NUMBER 


000414 000000 


SMsGADl 


.WORD 


AMSGAD 


1 | MESSAGE ADDRESS 


000416 000000 


SMSGLGi 


.WORD 


AMSGLG 


1 | MESSAGE LENGTH 


000420 


IETABLEI 






llAPT ENVIRONMENT TABLE 


000420 000 


$ENVI 


.BYTE 


AENV 


I {ENVIRONMENT BYTE 


000421 000 


SENVMl 


.BYTE 


AENVM 


I {ENVIRONMENT MODE BITS 


000422 000000 


8SWREGI 


.WORD 


ASWREG 


llAPT SWITCH REGISTER 


000424 000000 


SUSWR! 


.WORD 


AUSWR 


II USER SWITCHES 


000426 000000 


SCPUOPj 


.WORD 


ACPUOP 


{{CPU TYPE, OPTIONS 




I* 






BITS 15-lloCPU TYPE 




1* 






11/04*01, 11/05= 




1* 






11/70*06, PDQ«07 




t* 






BIT 10BREAL TIME CLOCK 



000430 
000431 



000432 000000 



000434 
000435 
000436 
000440 
000441 
000442 
000444 
000445 
000446 
000450 



126 
127 
127 



{* BIT 9SFL0ATING POINT PROCESSOR 

|# BIT 8*MEM0RY MANAGEMENT 

gMAMSl I .BYTE AMAMsi {(HIGH ADDRESS, M.S. BYTE 

IMTYP1I .BYTE AMTYPl | » MEM, TYPE, BLK» 1 
I* MEM, TYPE BYTE — (HIGH BYTE) 

{» 900 NSEC CORE8001 

(» 300 NSEC BIPOLAR8002 

{# 500 NSEC MOSa003 

gMADRl I .WORD AMADR1 {{HIGH ADDRESS, BLK* 1 

{» MEM, LAST ADDR,«3 BYTES, THIS WORD AND LOW OF "TYPE" ABOVE 

$MAMS2l .BYTE AMAMS2 I {HIGH ADDRESS, M.S. BYTE 

IMTYP2I .BYTE AMTYP2 | | MEM, TYPE, BLK#2 

0MADR2I .WORD AMADR2 | {MEM.LAST ADDRESS, BLKI 2 

IMAMS3I .BYTE AMAMS3 I {HIGH ADDRESS, M.S. BYTE 

IMTYP3I .BYTE AMTYP3 I | MEM , TYPE, BLKI 3 

f MADR3 I .WORD AMADR3 I {MEM, LAST ADDRESS, BLK# 3 

IMAMS4 I .BYTE AMAMS4 { {HIGH ADDRESS, M,S, BYTE 

IMTYP4 | .BYTE AMTYP4 | | MEM , TYPE, BLK#4 

IMADR4 1 .WORD AMADR4 { {MEM.LAST ADDRESS, BLKI4 

lETENDl 

.MEXIT 

{ | «*•»**»•»«#««««««»«»**#••«•«•«•»«••*«*««««»•»«•*«•»•»»*#««••»«# 

.SBTTL BEGIN OF AREA TESTED (+20) WHEN PROGRAM RELOCATES, 
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177570 












, ii^i 








1277 


000300 


1 0706 




1278 










a 01015 01 1 
00103 < 


■0103 r %o 






01010304 




0100 J3u 


1281 


0(905 1 


0127 37 


aaaan a 
VJWYIW I 


1282 


0005 1 6 


005037 


000300 


128 3 


00032 i 


005037 


000 J I 4 


1284 


000526 


01 2700 


a(3ta 4 4 A 
000 114 


1 285 


rats o» a 1 1 

0BB3 J £ 




nns ill. 
003 4 3 O 


1286 


0005 36 


00 f 40 




1287 


000340 


012710 


000340 


1288 


000544 


1 057 37 


A/in jae 

000405 


1289 


acidise & ci 


1 0000/ 






00055 2 


000 167 


10 10103 «» / 


1291 








1 292 


000556 


0057 37 


000406 


1 29 3 


BMbs o £ 


00 1 •10 £ 




1 \W 


0003O4 


000 167 


oi oi a 1 1 a 

r>1010 a 1 *t 




aaaKTa 

171010 3 / X) 


01 2704 


007744 


1 296 


19 10 103 1 4 


01 2700 


WwBJ f ' 


1297 


000600 




0003 1 6 






0I03I00 1 




1 MO 


0101(31 A OIK 

I0i!710O10O 






i %aa 


00170 1 10 




10 if? 10 *t 10 10 


1 301 


1010100 1 1 


103774 




1 302 


0006 1 6 


0057 4 1 




1 303 


000620 


01 00 1 1 




1304 








1305 


000622 


0200 1 1 






fl0)0i&?d 

K? ty W o * " 


001 40 3 




1 307 








* \* \ 


OvvO CO 


004767 


005 304 


(13 


000O J I 


00000 1 




( 1 ) 








I *?« 


0I00O 3 4 


0100 3oi) 






0006 36 






iiii 


a a at. a a 


acts 7 a 4 

0<73 1 v I 




ill? 


C4IAGIA 49 


001 365 




1313 


aaa&.A a 




17 10 10 ** 10 10 


1314 


000650 


014441 




1315 


000652 


005701 




1316 


000654 


001375 




1317 


000656 


012700 


000006 


1318 


000662 


012710 


000340 


1319 


000666 


012740 


000700 


1320 


000672 


005777 


177552 


1321 


000676 


000404 




1322 


000700 


022626 




1323 


000702 


012737 


000176 


1 324 








1325 








1326 


000710 


105737 


000420 



I I ##»#***»*##< 

SWRt 17757( 



*•**««««*«•»««*«**»«*««*««»###»»»#«#»»*»««*»«*«#*«• 

1 CHANGES TO SWREG IF NO HARDWARE SWITCH REGISTER 



3S: 

4$: 



,8500 






MOV 


PC, 5P 


. CPT tID CTlfK DflTNfFB TO FnMM, BFRTN » n n R F S Q 


TST 


«(SP) 






CD a 4* C A VDJ. 
fir;? 1 OH V KO 


; O A V C> or run r U 1 UXt Uot 




* DUDn M . Sill 






a « fi BDCDS 
f li rMtRR 




CLR 


pWT XPuN I 






# 1 1 4 i R0 


JrHtrPAHC. TO SC. 1 UP PftKI I l lKAr VtU 1 UK 


Mnu 








PL , K H0 J + 


i 1U rMKtKK 


MOV 


9 J40 , I R0 3 


JANU PS" Ur J40 


TSTB 


P i REL 


{IS THIS CUUt KLLiUCAlEUf 


BPL 


ONEPAS 


jBRANCH IF NO 


JMP 


ToTKc>Li 


fTHIS LOUS. Id HE-LiOt- A 1 c,t/ SU i»t i rto 1 o I &C' , 


TST 


9 ft f PASS 


jIS THIS THE FIRST PASS? 




TSTRP 


. an«uf< li tp vre r TP «T to & D r & TCHFD innof <!?FS^ 
jDHMBtn if i&o i i do i lUnr inn nt« suunfcOoto J 


JMP 


SETSTK 


j GET THE TEST SIZE 


MOV 


#ENDPRG ,R4 


; LOAD R4 WITH THE ADDRESS OF THE END OF THE PROGRAM 










H0, IsBARrRT 




pip 






MOV 


/ D 4 ■» x . f DA \ x 


; SAVE FROM 0000 TO BEGIN*30 AT END OF PROGRAM FOR NOW 


CMP 


tj 4 « e Mi TT, 




BLO 


2| 




TST 


- ( Rl ) 


;PREPARE TO TEST THE TPAP VECTORS 


MOV 


R0. f R 1 1 


jCHECK THE TRAP VECTORS FOP THE CAPABILITY 






fOF HOLDING 0'S & 1 *S 


CMP 




•IS THE DATA OK? 


BEQ 


68 


• RDflNfH TF VITS 
jBKn"wn Xr 2 C#0 




rCf r niCitin 


. *error# REPORT ERROR MESSAGE AND HALT AT FATHLT 


1 




j ^#####ERROR NUMBER l##^^^# 


SWAB 






BNE 


4$ 




TST 


Rl 


• IF WE HAVE NOT REACHED THE LOWEST MEMORY LOCATION 


BNE 


3$ 


j THEN REPEAT FROM 35 


MOV 


#$MAIL,R1 




MOV 


-(R4),»(R1) 


} RESTORE TRAP CATCHER ETC, 


TST 


Rl 




BNE 


8$ 




MOV 


86, R0 




MOV 


#340, (R0) 


jSET UP TIME OUT TRAP PSW 


MOV 


#4S,-(R0) 


; AND THE RETURN ADDRESS 


TST 


PSWR 


jDOEs THE SWITCH REGISTER POINTED BY SWR EXIST ? 


BR 


53 


; BRANCH IF YES 


CMp 


(SP)+» (SP)+ 


J RESTORE THE STACK POINTER 


MOV 


#SWPEG,9#SWR 


; AND PLACE THE ADDRESS OF THE SWITCH REGISTER 






jDESIGnED FOR THE COMPUTERS NOT HAVING HARDWARE 






;SWITCH REGISTER AND RUNNING STAND ALONE 


TSTB 


P#8ENV 


} RUNNING UNDER APT? 
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1327 
1328 
1329 
1330 
1331 
1332 
1 333 
1334 
1335 
1336 
1337 
1338 
1 339 
1340 
1341 
1342 
1343 
1344 
1345 
1346 
1347 
1348 
1349 
1350 
1351 
1352 
1353 
1354 
(13 
(1) 
1355 
1356 
1357 
1358 
1359 
1360 
1361 
1362 
1363 
1364 
1365 
1366 
1367 
1368 
1369 
1370 
1371 
1372 
1373 
1374 
1375 
S376 
1377 
1378 
1379 
1380 



000714 
00071b 



000724 
000730 
000736 
000744 



001403 
012737 



000752 
000756 
000762 
000764 
000766 
000772 

000774 
001000 

001002 
001006 
001012 

001014 
001022 



001024 
001026 
001032 

001034 
001040 



000422 000450 



BEQ 
MOV 



APTSIZ 

#SSWREG,0»SWR 



; BRANCH IF NO 

jSET SWR EQUAL TO APT SWITCH REGISTER, 



012703 
013737 
013737 
105737 
100021 

012701 
162701 
105711 
001006 
020127 
101371 

004767 
12 



004767 
004767 
000446 

032777 
001042 



010401 
012710 
011111 

062701 
000774 



000340 
000330 
000332 
000421 



000451 



0334 
0336 



000431 
005136 



006302 
006276 



001042 022626 

001044 004767 005770 

001050 105737 000276 

001054 001414 

001056 012710 001070 

001062 012701 020000 



j APTSIZ- THIS ROUTINE WILL SEARCH THE APT MEMORY ETABLE AND WHEN 

?A NON ZERO TYPE IS FOUND WILL SETUP TO TEST TO GIVEN HIGH ADDRESS, 

j IF APT DEFINES SIZE THE LOW TEST ADDRESS MUSTs 00000 , ( DUE TO ETABLE FORMAT) 
jFLOWj 

I IF BLOCK 4 (OR 3,2,1) TYPE NON ZERO THEN GET APT HIGH ADDRESS AND EXIT, 

j ELSE SEND ERROR S3 

jNOTEf THE MEMORY TYPE IS IGNORED SINCE ALL TESTS ARE RUN REGARDLESS OF MEMORY TYPE, 



APTSIZ! 


MOV 


IMAXMEM, R3 




jPOINT R3 TO MAXMEM, 




MOV 


P#HIGHTWO, 


9*$HIMAX >IN CASE NO SELF SIZING DONE, 




MOV 


MHIGHADD, 


9# SMAXM < IN CASE NO SELF SIZING DONE, 




TSTB 


g#$ENVM 




jDOES APT ALLOW SELF SIZING? 




BPL 


TRYSR 




1 BRANCH IF YES 




MOV 


#$MTYP4+4, 


Rl 


jPOINT Rl TO BLOCK TYPE 4(+4) 


IS! 


SUB 


#4,R1 




jPOINT Rl TO NEXT BLOCK TYPE, 




TSTB 


(Rl) 




jIS THE BLOCK TYPE NON ZERO? 




BNE 


2S 




jBRANCH IF YES (MEMORY EXISTS) 




CMP 


R1,#SMTYP1 




; ALL APT BLOCK TYPES BEEN CHECKED? 




BHI 


IS 




IBRANCH IF NO 




JSR 


PC , FATERP 




;«ERROR* REPORT ERROR MESSAGE AND HALT AT FATHLT 




2 






;*«*«#»ERROR NUMBER 2####*# 


2$i 


JSP 


PC, GETADR 




*G0 SET MAXIMUM APT ADDRESS INTO $MAXM * SHIMAX 




JSR 


PCtGETADR 




JGO SET MAXIMUM APT ADDRESS INTO HIGHADD+HIGHTWO 


BRTPSZf 


BR 


TYPSIZ 




; TYPE THE SIZE OF MEMORY UNDER TEST 


TPYSRI 


BIT 


#100,9SWR 




jUSER DEFINED MEMORY TEST BOUNDARIES?? 




BNE 


TYPSIZ 




; BRANCH IF YES (DON'T SIZE MEMORY) 



SLFSlZi MOV 
MOV 

2t| MOV 

ADD 
BR 



CMp 
JSR 



R4,R1 
#4$,(R0) 
(Rl)# (Rl) 

12, Rl 

2$ 



(SP) + ,(SPH 
PC , MEMMNG 



TSTB if MMAVA 

BEQ 12$ 

MOV #8$»(R0) 

MOV #20000, Rl 



I SETUP Rl AND R4 TO THE LOWEST ADDRESS OF MEMORY 

JSET UP RETURN ADDRESS FROM TIME OUT TRAP TO 4$ 

I WRITE A MEMORY LOCATION INTO ITSELF AND TRAP IF NONEXIS 

j ADD 2 TO THE ADDRESS POINTER 

I KEEP ON SIZING UP THE MEMORY UNTIL 

*NXM TRAP (TIME OUT TRAP) IS ENCOUNTERED 

t RESTORE THE STACK POINTER 

1 SERVICE MEMORY MANAGEMENT IF IT IS AVAILABLE 
1 AND IF IT HAS TO BE TESTED 

I SEE IF MEMORY MANAGEMENT HAS TO BE TESTED 
?IF NO MEM, MANG. THEN GO TO 121 
jSET UP THE RETURN ADDRESS FROM TRAP TO 8$ 
; BEGIN CHECKING MEMORY ABOVE 28K 
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8EQ 0028 



1381 


00 1 066 


P»007 ft 1 






BR 


2 f 




1382 


001070 


022626 




B S 1 


CMP 




*RE8T0RE STACK POINTED 


1383 


001072 


022701 


1 60000 




CMp 


# 160000* Rl 


{IF Rl DID NOT READ ALL THE LOCATIONS POINTED BY 


1384 














t PAGE ADDRESS RESISTED ft THEN IT HAS BEACHE!") THE 


1385 














1 MAXIMUM AVAILABLE MEMORY 


1386 


001 076 


001003 






BNE 


12$ 


tTM WHICH CASE GO TO 1 91 


1387 


001 100 


004767 


006106 




JSR 


PC UPMM 


(OTHERWISE RO TO ITDn&TE MEM M ANft REGISTERS 


1388 


001 104 


000764 






BR 


63 




1389 


001 1 06 


024 341 




1231 


CMp 




t C AUAE R ) TO POINT TO LOCATION ftMAYM ANO Rl 


1 390 














• TO THE MAYTMIIM AVA TL ABLE MEMORY 


1391 


00| 1J0 


004767 


006104 




JSR 


PC, PUTADR 


|G0 TO THE SUBROUTINE TO PLACE THE ADDRESS IN Rl 


1392 














• AT LOCATIONS AMA YM AMI) CHTMAY 


1393 


001 114 


024343 






CMp 




{MAKE R3 POINT TO HIGHADD 


1394 


001 1 16 


004767 


006076 




JSR 


PC , PUTADR 


iPfiACE THE ADDRESS IN Rl AT LOCATIONS HTftHAOn 


1 395 














, tun UTfiHTUlO 




00 1122 


005743 






If I 


B ( B 3 ) 




1397 




00504 3 










• CI.EAD THE LOC ATTON IiOU&nn 




an i i Oft 


H IP 3 10 <t 3 






CLR 


»CR3) 




1 399 


001 1 30 


01 2720 


acta i Oi& 


TYPS I Z | 


MOV 


t BlISER . ( Da > « 


. SET IIP VECTOR FOR ANY FUTURE TRAP 


1400 


001134 


010403 






MOV 


R4,R3 


{SET R3 TO POINT TO THE LOWEST AVAILABLE MEMORY 


1401 














fLOCATION 


1 402 


001 1 36 


012701 


000324 






« i,n wtwo . r 1 




1 403 


001 142 


004767 


005400 




JSR 


PC, PCRLF 


{TYPE CR/LF 


1 404 


001 1 46 


004767 


005546 




JSR 


PC, OCTTYP 


{ TYPE LOW TEST ADDRESSE (LOWTWO+LOWADD) 


1 405 


001 152 


004767 


1710 3 Ave 


TYPMEM | 


JSR 


PC , 8TYPE 


{ TYPE N « " 


1 406 


001 156 








ASCIZ 


/-/ 




1 407 










EVEN 






1408 


001 1 60 


004767 


005534 




JSR 


PC , OCTTYP 


{TYPE HIGHEST TEST ADDRESS (HIGHTWO+HIGHADD) 


1 409 


001 164 


01270 3 


0003 30 


SETSTK | 


MOV 


#HIGHTWO, RJ 


{MAKE R3 POINT TO THE HIGH ORDER BITS OF TOp ADDRESS 


1410 


001 1 70 


004767 


006 1 30 




JSR 


PC8GTSIZ 


; GET THE BITS 13-17 OF THE TOP ADDRESS 


1411 














{PLACED IN BITS 0«4 OF R2 


1412 


001 1 74 


010401 






MOV 


R4,R1 


{SET Rl TO LOWEST TEST ADDRESS 


1413 
1414 


001 1 76 


062704 


000022 


4$ 2 


ADD 


3 19 ,,R4 


; APPEND THE ERROR STACK FOR THE MEMORY UNDER 


1415 














; TEST TO THE END OF THE PROGRAM 


1416 


001202 


005 302 






DEC 


R2 




1417 


001204 


002374 






BGE 


4$ 




1418 


001206 


010437 


000310 




MOV 


P4,P#ENDSTK 


;SAVE THE ADDRESS OF THE END OF THE ERROR STACK 


1419 


001 2 1 2 


00502 1 




66 I 


CLR 


(Ri) + 


jCLEAP THE ERROR STACK 


1 420 


001 2 1 4 


0201 04 






CMP 


R1,R4 




1421 


001216 


101775 






BLOS 


6$ 




1422 


001220 


012737 


157776 t 


J00340 


MOV 


#157776, PiMAXMEM fSET MAXMEM TO MAXIMUM VIRTUAL ADDRESS 


1423 


001 226 


005723 






TST 


(R3) + 


; TESTING MEMORY MANAGEMENT? 


1424 


001230 


001004 






BNE 


SAVLDR 


I BRANCH IF YES (GO SAVE LOADERS AT TOp OF VIRTUAL MEMORY 


1425 


001232 


021300 






CMp 


(R3),R0 


?IS THE VIRTUAL ADDRESS ABOVE 157776? 


1426 


001234 


103002 






BHIS 


SAVLDR 


1 BRANCH IF YES (GO SAVE LOADERS) 


1427 


001236 


011363 


000002 




MOV 


(R3),2(R3) 


{OTHERWISE MAKE THE CONTENTS OF LOCATION MAXMEM 


1428 














J EQUAL TO THE MAXIMUM AVAILABLE MEMORY 


1429 














{ AND FALL INTO SAVE LOADERS. 


1430 
1431 


001242 


004767 


006136 


SAVLDRl 


JSR 


PCCLPMM 


} DISABLE THE MEMORY MANAGEMENT UNIT 


1432 


001246 


005723 






TST 


(R3H 


I MAKE R3 TO POINT TO THE LOCATION MAXMEM 


1433 


001250 


011305 






MOV 


(R3),R5 


;R5 CONTAINS THE ADDRESS OF MAXIMUM AVAILABLE MEM, 


1434 
1435 








|IF ONLY 4K BEING TESTED DON'T 


SAVE LOADERS 


1436 
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CMP 
BLO 



DZKMAB, 


,P11 


BEGIN OF 


1437 


001252 


020527 ( 


1438 


001256 


103416 


1439 






1 440 


001260 


162705 ( 


1441 


001264 


005737 ( 


1442 


001270 


001406 


1443 


001272 


023737 ( 


1444 


001300 


001402 


1445 


001302 


162705 ( 


1446 


001306 


012524 


1447 


001310 


020513 


1448 


001312 


101775 


1449 


001314 


012323 


1450 


001316 


010423 


1451 






1452 


001320 


010537 ( 


1453 


001324 


004767 ( 


1454 


001330 


005745 


1455 


001332 


012703 ( 


1456 


001336 


005723 


1457 






1458 


001340 


001003 


1459 


001342 


021327 


1460 






1461 


001346 


103411 


1462 


001350 


032777 ( 


1463 


001356 


001003 


1464 


001360 


004767 ( 


(1) 


001364 


000003 


(1) 






1465 


001366 


000167 ( 


1466 


001372 


020423 


1467 


001374 


103002 


1468 


001376 


016304 


1469 


001402 


005723 


1470 


001404 


001003 


1471 


001406 


021305 


1472 






1473 


001410 


101001 


1474 


001412 


011305 


1475 


001414 


105737 1 


1476 


001420 


100014 


1477 


001422 


013704 ( 


1478 


001426 


020527 ( 


1479 


001432 


103402 


1480 


001434 


012705 ( 


1481 






1482 


001440 


020405 


1483 


001442 


103403 


1484 


001444 


004767 < 


(1) 


001450 


000004 


(1) 






1485 


001452 


012703 ( 


1486 


001456 


011343 


1487 


001460 


062713 1 


1488 







000276 
2 



000042 
005674 



000346 
006054 



010000 
004552 



003526 
177776 



000322 
017776 



017776 



000342 



177072 2$l 



38| 
431 



38! SUB 
TST 
BEQ 
CMP 
BEQ 
SUB 

281 MOV 

CMP 
BLOS 
481 MOV 
MOV 

TSTRELi MOV 
TSTSIZ! JSR 
TST 

18! MOV 
TST 



BNE 
CMp 

BLO 
BIT 
BNE 
JSR 
3 

JMp 

CMP 

BHIS 

MOV 

TST 

BNE 

CMP 

BHI 

MOV 

TSTB 

BPL 

MOV 

CMP 

BLO 

MOV 

CMp 
BLO 
JSR 

4 



1081 MOV 

MOV 

MEMTST I ADD 



R5, #17776 
48 

#276, R5 
8#42 

28 

$#42,®#46 
28 

#<1502,*2>,R5 
(R5)+, (R4)+ 
R5,(R3) 
28 

(R3H, (R3)+ 
R4,(R3)+ 

P5,f #SAVR5 
PC , CLRMM 
-(R5) 

#L0WTW0,R3 
(R3) + 

28 

(R3), #157776 

48 

#10000, PSWR 
38 

PC#FATERR 



TSTMM 

R4,(R3)+ 

68 

-2(R3),R4 

(R3) + 
88 

(R3),R5 
8$ 

(R3),R5 

MREL 

108 

MRELBOT, R4 
R5, #17776 

9$ 

#17776, R5 

R4,R5 
108 

PC, FATERR 



#SAVMAX,R3 
(R3),-CR3) 
#2,(R3) 



{ONLY TESTING 4K MAX? 

{BRANCH IF YES (DON'T SAVE LOADERS) 

{PREPARE TO SAVE 300 BYTES OF THE LOADERS 
|IS THE PROGRAM RUNNING UNDER ACT OR XXDP ? 
I IF NOT THEN GO TO 28 

I ARE WE RUNNING UNDER XXDP CHAIN MODE? 
IBRANCH IF NO 

ISAVE 1500. WORDS FOR XXDP CHAIN MODE 
I SAVE LOADER 



ISAVE THE CONTENTS OF LOCATION MAXMEM IN SAVMAX 
I AND THE CONTENTS OF R4 AT SAVR4 

ISAVE HIGHEST VIRTUAL ADDRESS+2 

|G0 TO DISABLE MEMORY MANAGEMENT UNIT 

I SET R5 BACK TO HIGHEST VIRTUAL ADDRESS 

I PREPARE TO LOAD R4 AND R5 WITH THE MEMORY BOUNDRIES 

I IF THE BITS 16,17 OF THE LOWEST LOCATION UNDER 

I TEST ARE NON ZERO 

ITHEN GO TO 28 

I IF THE LOWEST LOCATION UNDER TEST IS HIGHER THAN 
1157776 THEN GO TO TEST MEMORY MANAGEMENT 

|IS MEMORY MANAGEMENT SELECTED? 
I YES ALL IS WELL 

|*EPROR* REPORT ERROR MESSAGE AND HALT AT FATHLT 
!*«*«»#ERR0R NUMBER 3#**«** 



I GO TO TEST MEMORY MANAGEMENT 



I ADJUST R4 TO POINT TO THE LOWEST LOCATION UNDER TEST 
I IF BITS 16-17 OF HIGHEST LOCATION TO BE TESTED 

I ARE NON ZERO THEN GO TO 88 

{OTHERWISE SEE IF THE HIGHEST LOCATION TO BE 

{TESTED IS HIGHER THAN 157776 

I IF SO THEN GO TO 8$ 

{MODIFY R5 

{ARE WE RELOCATED.? 

{BRANCH IF NO 

{ SET BOTTOM TEST ADDRESS WHEN RELOCATED, 
{ ARE WE RELOCATED IN BANK 0? 
{ BRANCH IF YES 

{ ELSE SET HIGH MEMORY UNDER TESTMK 

{IS LOW LIMIT LOWER THAN HIGH LIMIT? 
{BRANCH IF YES 

{•ERROR* REPORT ERROR MESSAGE AND HALT AT FATHLT 
{######ERROR NUMBER 4#»**»» 



{RESTORE THE CONTENTS OF MAXMEM 

{MAKE THE CONTENTS OF MAXMEM * MAXIMUM AVAILABLE 
{MEMORY +2 
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SEQ 0030 



1 489 


001 464 


005725 


1 490 






1491 






1 492 






149 3 


001 466 


012702 


1494 


001 472 


004767 


1 495 


001 476 


01 0500 


1 496 


0101 ^aa 


005040 


1 497 


001 502 


020004 


1498 


001 504 


101375 


1 499 




012702 








1 501 


001 5 1 4 


00031 2 






01 7702 


1 503 


001 522 


042702 


1 504 






1505 












1507 






1 508 






1 509 






1510 


001 526 


005037 


1511 


001532 


1 10237 


1512 






1513 


001 5 36 


01 0401 


1514 


001 540 


010246 


1515 


001 542 


0i 2703 


1516 


001 546 


004767 


1517 






1518 






1519 


001552 


005743 


1520 






1521 


001 554 


004767 


1522 






1523 


001560 


010400 


1524 






1525 


001562 


01 0401 


1526 


001564 


010403 


1527 


001 566 


012602 


1528 


001 570 


006302 


1529 


001 572 


060702 


1530 


001574 


066207 


1531 






1532 






1533 






1534 


001600 


000102 


1535 


001602 


000334 


1536 


001604 


000434 


1537 


001606 


000544 


1538 


001610 


001012 


1539 


001612 


001122 


1540 


001614 


001270 


1541 


001616 


001424 


1542 


001620 


001646 


1543 


001622 


002174 


1544 


001624 


002246 



176726 
177760 





TST 


t R5) + 


1 AND SET R5«MAX MEMORY+2 


fCLEAR 


MEMORY 


UNDER TEST 




CLRMEMi 


MOV 


#1,R2 


jSET P2 TO ENABLE PARITY MODULE CODE, 


JSR 


PC, PARITY 


I ENABLE PARITY IF WANTED AND AVAILABLE, 




MOV 


R5,R0 




2$t 


CLR 


»(R0) 


jBEGIN CLEARING THE MEMORY FROM THE TOP 




CMP 


R0,R4 


fUNTIL THE BOTTOM IS REACHED 




BHI 


28 






MOV 


#BAKPAT,R2 






MOV 


(R2H#(R2) 


yWRITE SWAPPED BAKPAT IN LOCATION SWAPAT 




SWAB 


(R2) 






MOV 


?SWR,R2 


; LOAD R2 WITH THE OPTIONS STORED AT SSWREG 




BIC 


#177760, R2 


1 ONLY LEAVE THE LOWER 4 BITS 0F $SWREG IN R2 








j THE TEST * SPECIFIED [DEFAULT IS TEST#0) 


% ENTER 


HERE FROM TSTSCP ROUTINE 


AT END OF SUBTEST 


CONTl 


CLR 


MPASFLG 


jINIT SUBTEST PASS FLAG, 




MOVB 


R2,M$TESTN 


;SET UP STESTN WITH THE TEST NUMBER GOING 








|T0 BE EXECUTED 


liOOPI 


MOV 


R4 f Rl 


lLOAD Rl WITH THE LOWEST LOCATION UNDER TEST 




MOV 


R2,-(SP) 


ISAVE R2 ON THE STACK 



MOV 
JSR 



MOV 

MOV 
MOV 
MOV 
ASL 
ADD 
ADD 



#376, R3 
PC,PUTADR 



PCSGTSIZ 

R4,R0 

R4,R1 
P4,R3 
(SP)*,R2 
R2 

PC,R2 

TBL-.(P2), 



TST0-TBL 

TSTl-TBL 

TST2-TBL 

TST3-TBL 

TST4-TBL 

TST5-TBL 

TST6-TBL 

TST7-TBL 

TST10-TBL 

TST11-TBL 

TST12-TBL 



fPOINT R3 TO SCRATCH STACK 
;G0 TO GENERATE 18 BIT ADDRESS OUT OF THE ADDRESS 
t STORED IN Rl AND STORE IT IN LOCATIONS (R3) 
I AND (R3-2) 

jCAUSE R3 TO POINT TO THE HIGH ORDER BITS OF THE 
!1B BIT ADDRESS 

i PLACE BITS 13-17 OF THE ADDRESS IN BITS 
10-4 OF R2 

JPLACE THE ADDRESS OF THE LOWEST LOCATION UNDER 

j TEST IN R0 

*IN Rl 

; AND IN R3 

jRESTORE R2 



*G0 TO THE TEST # 
; STORED IN BITS 0-3 OF SWITCH REGISTER 



t RELATIVE 


ADDRESS 


OF 


TEST 


# 





; RELATIVE 


ADDRESS 


OF 


TEST 


8 


1 


; RELATIVE 


ADDRESS 


OF 


TEST 


# 


2 


^RELATIVE 


ADDRESS 


OF 


TEST 


# 


3 


; RELATIVE 


ADDRESS 


OF 


TEST 


# 


4 


jRELATIVE 


ADDRESS 


OF 


TEST 


# 


5 


; RELATIVE 


ADDRESS 


OF 


TEST 


# 


6 


; RELATIVE 


ADDRESS 


OF 


TEST 




7 


; RELATIVE 


ADDRESS 


OF 


TEST 


# 


10 


? RELATIVE 


ADDRESS 


OF 


TEST 


# 


11 


; RELATIVE 


ADDRESS 


OF 


TEST 


3 


12 
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1545 
1546 
1547 
1548 
1549 
1550 
1551 



001626 
001630 



002520 
003146 



TST13-TBL 
RELOC-TBL 



^RELATIVE ADDRESS OF TEST # 13 

j RELATIVE ADDRESS OF ROUTINE 'RELOC ' 



»R5 IS POINTING TO THE TOP OF THE MEMORY TO BE TESTED+2 

|R4 & R0 ARE POINTING TO THE LOWEST ADDRESS OF MEMORY TO BE TESTED 
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1556 
1557 
1558 
1559 
1560 
1561 
1562 
1563 
1564 
1565 
1566 
1567 
1568 
1569 
1570 
1571 
1572 
1573 
1574 
1575 
1576 
1577 
1578 
1579 
1580 
1581 
1582 
1583 



31632 
01636 
01640 



01650 
01654 
01662 
01664 

01666 
01674 
01676 



105737 
001002 
004767 



01644 113702 



005237 
032777 
001401 



000420 
006020 
000404 

000410 

002000 176566 



032777 
001320 
105202 
000712 



I * 



SCOPE ROUTINE 



CNTSCPl MOVB 



040000 176554 TSTGOl 



PROGRAM COMES TO THIS ROUTINE AFTER COMPLETION OF EACH TEST AND 
IF CNTRL-C TYPED GOTO ERROR HISTORY TYPE ROUTINE, 
IF SRa 2000 CBIT10) THEN HALT 

IF SRs 40000 (BIT14) THEN LOOP ON TEST DEFINED BY SR BITS<3l0> 
ELSE CONTINUE TO NEXT TEST, 



TSTSCPl TSTB 9t$ENV 
BNE CNTSCP 
JSR PCCHECKC 



9«STESTN,R2 



INC 9MDEVCT 

BIT #2000,f*SWR 

BEQ TSTGO 
SWHALTl HALT 



BIT #40000, PSWR 

BNE LOOP 

INCB R2 

BR CONT 



J ARE WE RUNNING UNDER APT? 

t IF SO THEN GO TO CNTSCP 

J TEST FOR CONTROL-C AND IF TYPED GO 

j PRINT ERROR HISTORY AND HALT AT FATHLT, 

fPLACE THE TEST NUMBER IN THE LOWER BYTE OF R2 

fSINCE THERE ARE LESS THAN 377 TESTS UPPER BYTE 

jOF R2 WILL BE 

j TELL APT WE ARE STILL RUNNING OKAY 

; IS THE PROGRAM GOING TO HALT AFTER EACH TEST? 

j IF NOT THEN GO TO 2$ 

jHALT AT END OF TEST SWITCH SET, 

|IS THE PROGRAM GOING TO LOOP ON TEST 

t IF SO THEN GO TO THE STARTING OF THE SAME TEST 

|GO TO CONT AND CONTINUE EXECUTING THE NEXT TEST 
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T0 


TEST FOR PROPER 


BANK SELECTION 






1596 








t | ########*############•##############♦##♦♦##########»########### 


(3) 








j #TEST 





TEST FOR PROPER 


BANK SELECTION 


(4) 










l»(l) 


THIS TEST ASSUMES THAT THE MEMORY IS IN A STATE 


(4) 










1* 


OF ALL 0'S AND 


R0 HAS THE ADDRESS OF THE LOWEST 


(4) 










>* 


LOCATION UNDER 


TEST 


(4) 










f *(2) 


IT CHECKS FOR PROPER BANK SELECTION BY WRITING 


(4) 










l« 


l'S IN A LOCATION AND CHECKING FOR 0*S IN THE SAME 


(4) 










I * 


LOCATIONS OF OTHER 4K BANKS OF THE MEMORY 


(4) 










f » 


[I.E. LOCATIONS 


LIKE 7766 AND 27766 EtCJ 


(4) 










!*(3) 


THIS TEST ALSO 


CHECKS TO SEE THAT NONE OF THE NON EXIST- 


(4) 










1 * 


ING BANK RESPOND WHEN THEY ARE ADDRESSED 


(3) 








i t ###*####*##•#########*##############*#############»############ 


(2) 


001702 


105737 


000404 


TST0I 


TSTB 


e#8TESTN 


jt CHECK FOR PROPER TEST SEQUENCE 


1597 


001706 


001403 






BEQ 


.♦10 




1598 


001710 


004767 


004222 




JSR 


PC* SEQERR 


f*ERROR# REPORT ERROR MESSAGE AND HALT AT FATHLT 


(1) 


001714 


000005 






5 




;*#####ERROR NUMBER 5#**«#* 


(1) 
1599 


001716 


012703 


177777 




MOV 


#177777, R3 




1600 


001722 


010401 




13: 


MOV 


R4,R1 


IR1 a ADDRESS OF LOWEST LOCATION OF MEMORY UNDER TEST 


1601 


001724 


010310 






MOV 


R3,(R0) 


;SET ALL THE BITS AT (R0) 


1602 


001726 


020001 




281 


CMP 


R0,R1 


; IS R0 POINTING TO THE SAME MEMORY LOCATION AS Rl 


1603 


001730 


001417 






BEQ 


48 


I IN WHICH CASE CHECK FOR ALL l'S AT (Rl) 


1604 


001732 


005711 






TST 


(Rl) 


^OTHERWISE CHECK (Rl) FOR ALL 0»S 


1605 


001734 


001430 






BEQ 


58 




1606 


001736 


020311 






CMP 


R3,(R1) 


jIF Rl IS NOT EQUAL TO R0 AND (Rl) 


1607 














|DOES NOT CONTAIN ALL 0'S THEN 


1608 














fCHECK TO SEE IF (R0) a (Rl) 


1609 


001740 


001004 






BNE 


38 




1610 


001742 


012767 


000006 000042 




MOV 


86,128 


l»ERROR# SETUP ERROR NO, IN 128 


(1) 














j######ERROR NUMBER #6**»*»* 


16U 


001750 


000403 






BR 


108 




1612 


001752 






331 








(1) 


001752 


012767 


000007 000032 




MOV 


#7,128 


J#ERROR* SETUP ERROR NO, IN 128 


(1) 














j ««*«»*ERROR NUMBER #7##«ft*» 


1613 


001760 


010046 




1081 


MOV 


R0,-(SP) 


;SAVE R0 0N STACK 


1614 


001762 


105237 


000301 




INCB 


Mf ADERR 


J AN ADDRESSING ERROR IS SUSPECTED 


1615 


001766 


000407 






BR 


118 




1616 


001770 


020311 




48! 


CMP 


R3,(R1) 


iCHECK (Rl) FOR ALL l'S 


1617 


001772 


001411 






BEQ 


58 




1618 


001774 


012767 


000010 000010 




MOV 


#10,128 


f«ERROR# SETUP ERROR NO, IN 128 


(1) 














!««««««ERROR NUMBER #10##ft«#« 


1619 


002002 


010046 






MOV 


R0,»(SP) 


t SAVE R0 ON STACK 


1620 


002004 


010300 






MOV 


R3,R0 




1621 


002006 


004767 


003566 


1181 


JSR 


PC, ERROR 


fGO TO THE ERROR SUBROUTINE 


1622 


002012 


000000 




1281 


.WORD 




S ERROR NUMBER TO BE REPORTED HILL BE PLACED HERE 


1623 


002014 


012600 






MOV 


(SP)*,R0 


I RESTORE R0 


1624 
1625 


002016 


013706 


000350 


58t 


MOV 


MSAVR6,SP 


I RESTORE THE STACK POINTER 


1626 


002022 


062701 


020000 




ADD 


#20000, Rl 


iCAUSE Rl TO POINT TO THE SAME CHIP 


1627 














f LOCATION IN THE NEXT 4K BANK OF MEMORY 


1628 














jBY ADDING 1 TO THE 14TH BIT OF ADDRESS IN Rl 


1629 


002026 


020105 






CMP 


R1,R5 


f COMPARE Rl WITH THE HIGHEST MEMORY 


1630 














I LOCATION WHICH IS STORED IN R5 


1631 


002030 


103736 






BLO 


2$ 


lIF Rl LESS THAN R5 THEN REPEAT THE TEST FROM 28 


1632 
1633 


002032 


105737 


000421 




TSTB 


M8ENVM 


f HAS APT INHIBITED SIZING? 
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3EQ 0034 



1^* 


v wtv JO 


< a a A la 
1 (IDt J 10 






at*'} a An 


032777 


afla 4 aa 
WW I BB 


1636 








1637 








1638 


002050 


020137 


000340 


















1641 






01 CI 01 01 CIA 


1642 




012712 


Blow J 9 W 


1643 


aa'iae. n 
v%)4voO 


012742 


177722 


1644 


002072 


0007 1 2 




1645 


00207 4 


0201 27 


157776 


1646 


002100 


1 01 004 




1647 


00« 1 02 


011111 




1648 


0021 04 


004767 


004026 


( 1 ) 


0021 10 


00001 1 




( 1 ) 
1649 








1650 


002 112 


012722 


000006 


1651 


002116 


005012 




1652 


002120 


005010 




1653 








1654 


002122 


062700 


020000 


1655 








1656 








1657 


002126 


020005 




1658 








1659 


002130 


103674 




1660 


002132 


000637 




1661 








1662 









176402 



6$i 
811 



BMI 


88 


I BRANCH IF YES (DON'T TEST NON-EXISTENT 


MEMORY) 


BIT 


#100, §SWR 


I HAS USER INHIBITED SIZING? 




BNE 


gg 


{BRANCH IF YES (DON'T TEST NON-EXISTENT 


MEMORY) 


CMP 




|IS Rl LOWER THAN THE MAXIMUM AVAILABLE 








{MEMORY ? 




BLO 


5$ 


{IF SO THEN GO TO 5$ 




MOV 


#6, R2 


{ MAKE R2 POINT TO TRAP VECTOR+2 FOR NXM 




MOV 


#340, (R2) 


{SET PSW TO 340 




MOV 


#58»,«6,«(R2) 


{ SET UP RETURN ADDRESS FROM TRAP TO 5$ 




«SE 


PC , ( R2 ) 






CMP 


n 4 11 (Hie 

HI , »157 110 


{SEE IF Rl HAS CROSSED 28K BOUNDRY OF VIRTUAL ADDRESS 


BHI 


68 


{IN WHICH CASE GO TO 6$ 




MOV 


(Rl ) , (Rl ) 


{TRY TO WRITE TO NON-EXISTENT MEMORY (SHOULD TRAP) 


JSR 


PC , FATERR 


{•ERROR* REPORT ERROR MESSAGE AND HALT 


AT FATHLT 


i 1 




{#««««*ERROR NUMBER H ###### 




MOV 


#6,(R2H 


{RESTORE TRAP VECTOR 




CLR 


CR2) 






CLR 


(R0) 






ADD 


#20000, R0 


{CAUSE R0 TO POINT TO THE SAME CHIP 








{LOCATION IN THE NEXT 4K MEMORY BANK 








f BY ADDING 1 TO THE 14TH BIT OF ADDRESS 


IN R0 


CMP 


R0,R5 


{COMPARE R0 WITH THE HIGHEST MEMORY 








{LOCATION WHICH IS STORED IN R5 , 




BLO 


1$ 


{IF R0 LESS THEN REPEAT THE TEST 




BR 


TSTSCP 
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1668 






(3) 






(4) 






(4) 






(3) 






(2) 


002134 


122737 


1669 






1670 






1671 


002142 


001403 


1672 


002144 


004767 


(1) 


002150 


000012 


(1) 






1673 


002152 


012700 


1674 


002156 


010002 


1675 


002160 


010011 


1676 


002162 


020011 


1677 


002164 


001403 


1678 


002166 


004767 


(1) 


002172 


000013 


(1) 






1679 






1680 


002174 


005702 


1681 


002176 


001406 


1682 


002200 


006300 


1683 






1684 


002202 


103366 


1685 






1686 


002204 


005002 


1687 


002206 


012700 


1688 


002212 


000762 


1689 






1690 


002214 


000261 


1691 


002216 


006100 


1692 


002220 


103757 


1693 






1694 


002222 


062701 


1695 






1696 


002226 


020105 


1697 


002230 


103750 


1698 


002232 


000737 


1699 







1 1 ##»*«*#«#«•«««*«#******»»*»«*»**«*»*#«»»*««***««««#*#*«««*«*#*» 

{♦TEST 1 CHECK DI/DO LINES 

{*(i) THIS TEST CHECKS THE DATI/DATO LINES BY SHIFTING 

I* A 1 IN THE WORD DIRECTION 

I { *#♦♦♦♦#♦#####*♦♦♦#♦♦♦♦♦♦#♦♦♦♦♦#♦#♦♦#♦♦♦♦♦♦♦♦♦♦#♦♦♦♦#♦♦♦♦♦♦♦♦♦♦♦ 

TST1I CMPB #1,M8TESTN {CHECK FOR PROPER TEST SEQUENCE 





BEQ 


.♦1 













JSP 


PC, 


SEQERR 


{♦ERROR* REPORT ERROR MESSAGE 


AND HALT AT 


FATHLT 




12 






•♦«**#«ERPOR NUMBER 12****** 






111 


MOV 


#1, 


R0 










MOV 


R0, 


R2 


{ SET R2sl 






2$I 


MOV 


R0, 


(Rl) 


{MOV 1 AT LOCATION (Rl) 






3$I 


CMP 


R0, 


(Rl) 


{COMPARE PI WITH THE CONTENTS 


OF LOCATION 


(Rl) 




BEO 


4$ 












JSR 


PC, 


ERROR 


{♦ERROR* REPORT ERROR MESSAGE 








13 






% ♦♦♦♦♦♦ERROR NUMBER 13****** 







177776 



TST 


R2 


{ARE WE SHIFTING A IN DATA DIRECTION? 


BEQ 


5$ 


{IF SO THEN GO TO 58 


ASL 


P0 


{SHIFT THE 1 BROUGHT IN AT 1$ IN 






{DATA DIRECTION 


BCC 


28 


{IF THE 1 HAS NOT BEEN SHIFTED THRU 






{THE 16 DATA BITS THEN REPEAT FROM 28 


CLR 


P2 


{ INITIATE SHIFTING OF IN DATA DIRECTION 


MOV 


#177776, R0 




BR 


2$ 




SEC 




{SET C BIT 


ROL 


R0 


{SHIFT A 16 TIMES IN DATA DIRECTION 


BCS 


2$ 


{IF THE HAS NOT BEEN SHIFTED THRU 






{THE 16 DATA BITS THEN REPEAT FROM 28 


ADD 


«20000,R1 


{OTHERWISE GO TO THE NEXT BANK OF 






|4K MEMORY AND REPEAT THE TEST 


CMP 


R1,R5 




BLO 


IS 




BR 


END0 
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TEST MEMORY FOR HOLDING DATA AND BYTE SELECTION 



SEQ 0036 



( 3 ) 
























J j I 








C 4) 








( 4 ) 








( 3 ) 










0022 3 4 


1 * 27 3 


lOXJiorilO / 


1 709 








1710 








1711 


002244 


004767 


003666 


( 1 ) 


002250 


ovvio 1 4 




( 1 ) 








1712 


002252 


11 
01 3700 


0003 1 6 


1713 


002256 


1 1 0021 




1714 


002260 


113721 


000 317 


1715 


002264 






1 7 1 6 


002266 


103771 




1717 








1718 


002270 


n*) fit fit A * 




1 7 1 9 








1720 


002272 


001 416 




1721 


002274 


062701 




1722 


002 300 


123741 


0003 1 7 


172 3 


002 304 


ovl tut 




1724 


002 306 


1 2004 1 




1725 


002 310 


001 002 










a a a lot 1 


1727 


002316 


042701 


00000 1 


1728 


002322 


004767 


003252 


(1) 


002326 


000015 




(1) 








1729 


002330 


020104 




1730 


002332 


101356 




1731 


002334 


000337 


000316 


1732 


002340 


001744 




1733 








1734 


002342 


000733 




1735 








1736 








1737 









1 1 *«»#*««*»»*«»«»«*««#«#«»«**#»#»»*«»«#»*«»«»»#«**•»*»«•«#*««#»«* 



l»TEST 2 



TEST MEMORY FOR HOLDING DATA AND BYTE SELECTION 





|*(1) 


THIS TEST 


CHECKS THE MEMORY FOR THE CAPABILITY 




!* 


OF HOLDING 


i'S AND 0'S BY WRITING A BACKGROUND 




I* 


OF BAKPAT 


AND READING IT 




l*(2) 


MEMORY IS 


WRITTEN USING A BYTE AT A TIME 




|*(3) 


STEPS 1 6 


2 ARE REPEATED WITH A SWAPPED BACKGROUND PATTERN 


1 1 «»*«*«»»**«** 


«•*«»««»«*»*«»**«««»«**««»«««»*»*«»*«»»««#»«*»«««* 


TST2 1 


CMPB 


#2,M8TESTN j CHECK FOR PROPER TEST SEQUENCE 




BEO 


.♦10 






JSR 


PC,5EQERR 


?#ERROR# REPORT ERROR MESSAGE AND HALT AT FATHLT 




14 




l######ERROR NUMBER 14****«* 


1 8 1 


MOV 


{MBAKPAT, R0 




MOVB 


R0, (Rl)+ 






MOVB 


S#BAKPAT*1 


, (Rl)+f WRITE THE MEMORY WITH THE WORD STORED IN BAKPAT 




CMP 


Rl , R5 








1$ 




291 


CMp 


R0,»(R1) 


i TEST THE MEMORY TO SEE IF IT CONTAINS 








j THE WORD STORED IN BAKPAT 




BEQ 


8S 






ADD 


#2,R1 






CMPB 


g#BAKPAT*l 


,*(R1)|CHECK FOR BYTE SELECTION PROBLEM 




BEQ 


48 






CMPB 


R0f -(Rl) 


f AGAIN CHECK FOR BYTE SELECTION PROBLEM 




BNE 


6$ 




48: 


INCB 


g#8ADERP 


1 PREPARE TO INFORM THAT IT IS ADDRESSING ERROR 


6S I 


BIC 


#l,Pl 


JMAKE THE ADDRESS IN Pi EVEN 




JSR 


PC, ERROR 


j#ERROR# REPORT ERROR MESSAGE 




15 




}««****ERROR NUMBER 15###### 


88: 


CMP 


Plf R4 


1 KEEP ON TESTING THE MEMORY UNTIL 




BHI 


28 


;R1 EQUALS THE LOWEST ADDRESS 




SWAB 


0#BAKPAT 


j CHANGE THE DATA PATTERN 




BEQ 


IS 


J IF THE DATA PATTERN DOES NOT HAVE LOW 








; BYTE s0 THEN FALL THRU 


END2I 


BR 


END1 





I THE TEST LEAVES BAKPAT LOCATION THE SAME AS IT WAS IN THE BEGINNING 
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1749 
(3) 
(4) 
(4) 
(4) 
(4) 
(4) 
(4) 
(4) 
(4) 
(3) 
(2) 
1750 
1751 
(1) 
(1) 
1752 
1753 
1754 
1755 
1756 
1757 
1758 
1759 
1760 
1761 
1762 
1763 
1764 
1765 
1766 
1767 
1768 
1769 
1770 
1771 
1772 
1773 
1774 
(1) 
1775 
1776 
1777 
1778 
1779 
1780 
1781 
1782 
1783 
(1) 
1784 
1785 
1786 
1787 
1788 
1789 



1 I **»*»»«»**«*«***«**»*»«*»*«««»»**»««#»#*«#»**#****»«#*»»«»»»«*» 



002344 
002352 
002354 
002360 

002362 
002364 

002370 
002372 
002374 
002376 
002400 
002402 
002404 

002406 
002410 
002412 
002414 
002416 
002420 
002422 
002424 
002426 

002430 
002432 

002440 
002442 
002444 



122737 
001403 
004767 
000016 



03 
004737 

005002 
050302 
020204 
103465 
020205 
103077 
000312 

005001 
050301 
020104 
103445 
020105 
103053 
020102 
001431 
020011 

001437 
012767 

010046 
000316 
022611 



000003 000404 



017 000032 



002446 001003 



002450 012767 000020 000014 



002456 
002462 
002464 
002466 
002472 
002474 



105237 
010046 
010200 
004767 



012600 



j *TEST 


3 


DUAL ADDRESS 


TEST A 




!*(1) 


THIS TEST CHECKS FOR DUAL ADDRESSING PROBLEMS BY WRITING A 




»* 


BACK GROUND OF BAKPAT, 




f»(2) 


STARTING FROM 


THE LOWEST LOCATION IN THE BANK THE TEST WRITES A 




!* 


LOCATION WITH 


SWAPPED BAKPAT 




:*(3) 


READS THE MEMORY FOR PROPER CONTENTS 




:*(4) 


SHIFTS A 1 ALONG THE ADDRESS DIRECTION AND REPEATS STEPS 1-3 




l*(5) 


REPEATS STEP 


1-4 FOR EACH 4K BANK 


I i *•#*####•################•########♦####♦###################*### 


TST3 : 


CMPB 


#3,9|STESTN 


;CHECK FOR PROPER TEST SEQUENCE 




BEQ 


.♦10 






JSR 


PC* SEQERR 


;#EPROR# REPORT ERROR MESSAGE AND HALT AT FATHLT 




16 




; **««**ERROR NUMBER 1 6#»#**» 




CLR 


R3 




2$: 


JSR 


PC,3#WRTMEM 


j WRITE MEMORY WITH THE BACKGROUND STORED 








I AT LOCATION BAKPAT 


4$: 


CLR 


R2 




68: 


BIS 


R3,R2 


fMAKE R2 POINT TO THE MEMORY BANK POINTED BY R3 




CMP 


R2,R4 


;IF R2 IS LESS THAN R4 




BLO 


168 


j THEN DO NOTHING 




CMP 


R2,R5 


;IF R2 IS HIGHER THAN THE HIGHEST LOCATION TO BE 




BHIS 


20$ 


t TESTED THEN EXIT THE TEST 




SWAB 


(R2) 


IOTHERWISE WRITE THE COMPLEMENT OF BAKPAT IN 








% THE LOCATION POINTED BY R2 




CLR 


Rl 




78: 


BIS 


R3,R1 






CMp 


P1,P4 


|IF Rl IS POINTING TO A LOCATION LOWER THAN R4 




BLO 


128 


f THEN GO TO 128 




CMP 


R1,R5 






BHIS 


158 






CMp 


P1.R2 


ICHECK THE MEMORY FOR CORRECT DATA 




BEQ 


108 






CMP 


R0,(R1) 


jIF Rl IS NOT a TO R2 THEN (Rl) SHOULD HAVE 








t THE SAME WORD AS BAKPAT 




BEQ 


128 


;IN WHICH CASE GO BACK TO 128 




MOV 


•17,228 


|*ERROR* SETUP ERROR NO, IN 228 








:»«««««ERROR NUMBER Il7»###*# 


88: 


MOV 


R0,«(SP) 


j PLACE R0 ON THE STACK 




SWAB 


(SP) 






CMP 


(SPH,(Ri) 


lIF (Rl) IS NOT m R0 THEN SEE IF IT IS SAME 








1 AS A SWAPPED R0 




BNE 


9$ 


|IF NOT THEN A SUSPECTED DUAL ADDRESSING PROBLEM 








IFOR THE BITS THAT ARE DIFFERENT IN R0 AND (Rl) 








{OTHERWISE THERE IS DUAL ADDRESSING FOR THE 








} ENTIRE WORD 




MOV 


120,228 


|«ERROR« SETUP ERROR NO, IN 228 








f«##tt«»ERROR NUMBER #20*«ft««* 


9$: 


INCB 


M8ADERR 


; ADDRESSING PROBLEM Is DETECTED 




MOV 


R0,«(SP) 


} SAVE R0 




MOV 


R2,R0 


|SET R0*GOOD ADDRESS FOR ERROR REPORT 




JSR 


PC, ERROR 


1 GO TO THE ERROR SUBROUTINE 


22s: 


.WORD 




1 ERROR NUMBER TO BE REPORTED WILL BE PLACED HERE 




MOV 


(SP)+,R0 


t RESTORE R0 
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SEQ 0038 



1 790 


002476 


01001 1 






MOV 


R0, CRD 


{ RESTORE (Rl) 


1791 


002500 


020037 


000316 




CMP 


R0,§#BAKPAT 


J IF THE CONTROL CAME HERE FROM 15$»2 THEN 


1792 


002504 


001 41 1 






BEQ 


12$ 




1793 


002506 


000407 






BR 


1 1 $ 


I RETURN TO 11$ 


1794 


0025 10 


000300 




10$ 1 


SWAB 


R0 


;MAKE R0 SAME AS SWAPPED BAKPAT 


1 795 


0025 1 2 


02001 1 






CMP 


R0» ( Rl ) 


{IF Rl ■ R2 THEN (Rl) SHOULD CONTAIN A WORD 


1796 














; EQUAL TO SWAPPED R0 


1797 


002514 


001404 






BEQ 


11$ 


j IN WHICH CASE GO BACK TO 11$ 


1798 


0025 1 6 


012767 


00002 1 


177746 


MOV 


#21 , 22$ 


• »ERROR* SETUP ERROR NO « IN 22$ 


( 1 ) 














j ******ERR0R NUMBER #21 *##*#* 


1 799 


002524 


000745 






BR 


8$ 


;AND GO TO 8$ 




002526 


ana %aa 
DOB JDW 




1 1 $ 1 


SWAB 


R0 


{RESTORE R0 TO BAKPAT 


180^ 


0025 30 






12$ t 


BIC 


R3» Rl 


{TAKE OUT THE BANK ADDRESS FROM THE ADDRESS IN 


1 802 


vv « O -3 C 


00570 1 








Rl 


fIF Rl IS THEN PLACE A 1 IN Rl 


1 803 




|7V X Vv 4 






BNE 


13$ 


{OTHERWISE GO TO 13$ 




002536 








INC 


Rl 




1 805 


002540 






1301 


POL 


Rl 




1 806 


002542 


0201 27 


020000 




CMp 


Rl , #20000 


J IF Rl IS LESS THAN A 4K BOUNDRY 


1 807 




103720 






BLO 


7$ 


{THEN REPEAT FROM 7$ 


1 808 


002550 


000312 




1 5$ 1 


SWAB 


( R2 ) 


{RESTORE (R2) TO BAKPAT 


1810 


002552 


040 302 




1681 


BIC 


R3, R2 


{TAKE OUT THE BANK ADDRESS FROM THE ADDRESS 
{ STORED IN R2 


1811 


002554 


005702 






TST 


R2 


fIF R2 o THEN MOVE A 1 TO R2 


1812 


002556 


001001 






BNE 


18$ 


{OTHERWISE GO TO 18$ 


1813 


002560 


005202 






INC 


R2 




1814 


002562 


006102 




18$! 


ROL 


R2 


I SHIFT A ONE IN THE ADDRESS WORD 


1815 


002564 


020227 


020000 




CMP 


R2, #20000 


|IS THE ADDRESS IN R2 MORE THAN THE BOUNDRY 


1816 














;OF 4K 


1817 


002570 


103700 






BLO 


6$ 


{IF NOT THEN GO TO 6$ 


1818 


002572 


060203 






ADD 


R2,R3 


{OTHERWISE MAKE R3 POINT TO THE NEXT 4K BANK 


1819 


002574 


020337 


000340 




CMP 


R3,0«MAXMEM 


{IF R3 IS POINTING TO A BANK THAT IS LOWER 


1820 














j THAN MAXMEM 


1821 


002600 


103673 






BLO 


4$ 


{ THEN REPEAT FROM 4$ 


1822 


002602 


000337 


000316 


20$l 


SWAB 


ptBAKPAT 




1823 


002606 


001656 






BEQ 


TST3 


; REPEAT THE TEST WITH SWAPPED BAKPAT ONLY IF 


1824 














{THE LOWER BYTE OF BAKPAT IS 


1825 


002610 


000654 




END3I 


BR 


END2 
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DZKMAB 


Pll 


T4 


DUAL 


ADDRESS TEST B 










1832 














(3) 












j#TEST 


4 


DUAL ADDRESS 


TEST B 


(4) 














|*(1) 


THIS TEST CHECKS FOR DUAL ADDRESSING BY WRITING 


(4) 














I * 


AND 


READING 


THE ADDRESS IN THE LOCATION AND THEN 


(4) 














1* 


WRITING AND 


READING ADDRESS COMPLEMENT 


(3) 












j j »»*»***«•#*»»*«#*««•»«**«««*«*»»«*»*»«*»***«***»«««««««**«#*»»# 


(2) 


002612 


122737 


0000J 


J4 


000404 


TST4I 


CMPB 


#4, 


8«$TESTN 


{CHECK FOR PROPER TEST SEQUENCE 


1833 


002620 


001403 










BEQ 


.♦1 







1834 


002622 


004767 


0033 









JSR 


PC, 


SEQERR 


{♦ERROR* REPORT ERROR MESSAGE AND HALT AT FATHLT 


(1) 


002626 


000022 










22 






; *«#»««ERROR NUMBER 22****** 


(1) 
1835 


002630 


005303 










CLR 


R3 






1836 


002632 


010100 








l$t 


MOV 


Rl , 


R0 




1837 


002634 


005703 










TST 


R3 




{ IF R3 IS NOT THEN STORE THE ADDRESS 


1838 


002636 


001401 










BEQ 


2$ 




;IN THE LOCATION 


1839 


002640 


005100 










COM 


R0 




{OTHERWISE STORE COMPLEMENT 


1840 


002642 


010021 








2$i 


MOV 


R0, 


(Rl) + 


;OF THE ADDRESS 


1841 


002644 


020105 










CMp 


Rl, 


R5 


{UNTIL THE HIGHEST MEMORY LOCATION IS REACHED 


1842 


002646 


103771 










BLO 


1$ 






1843 
1844 


002650 


020041 








3$l 


CMP 


R0, 


-(Rl) 


{CHECK THE LOCATION FOR THE CORRECT CONTENTS 


1845 


002652 


001405 










BEQ 


4$ 






1846 


002654 


105237 


0003« 


'1 






INCB 


@#$ADERR 


{THIS IS PROBABLY ADDRESS PROBLEM RATHER THAN 


1847 




















{BIT PROBLEM 


1848 


002660 


004767 


002714 






JSR 


PC, 


ERROR 


{ #ERROR# REPORT ERROR MESSAGE 


(1) 


002664 


000023 










23 






;*»*«»«ERROR NUMBER 23****** 


(1) 
1849 


002666 


010100 








4$l 


MOV 


Rl. 


R0 




1850 


002670 


162700 


0000C 


92 






SUB 


#2, 


R0 


{CHECK THAT THE ADDRESS IS STORED AT 


1851 


002674 


005703 










TST 


R3 




{LOCATION IF R3 IS NOT 


1852 


002676 


001401 










BEQ 


5$ 




{OTHERWISE CHECK FOR 


1853 


002700 


005100 










COM 


R0 




{ ADDRESS COMPLEMENT 


1854 


002702 


020104 








5$I 


CMP 


Rl, 


R4 




1855 


002704 


101361 










BHI 


3$ 






1856 


002706 


112737 


0000« 


51 


000306 




MOVB 


*1, 


MPASFLG 


{SET PASFLG FOR ERROR REPORT. 


1857 


002714 


005103 










COM 


R3 




{COMPLEMENT THE CONTENTS OF R3 


1858 


002716 


001345 










BNE 


1$ 




{REPEAT TST3 IF R3, IS NON 0, ENABLING ADDRESS 


1859 




















{COMPLEMENT TO BE WRITTEN AND READ, OTHERWISE FALL 


I860 


002720 


000733 








END4I 


BR 


END3 




1861 























DZKMA MACYU 27(732) 05-AUG-76 1 3 1 43 PAGE 6-14 SEQ 0040 

DZKMAB.Pl 1 T5 MARCHING l'S AND 0*S 



1876 






(3) 






(4) 






(4) 






(4) 






(4) 






(4) 






(4) 






( 4 ) 






(4) 






(4) 






( 4 ) 






( 4 ) 






( 3 ) 






(2) 


002722 


122737 


1877 






1878 


002730 


001 403 


1 879 


002732 


004767 


( 1 ) 


002736 


000024 


( 1 ) 






1880 


002740 


004737 


1881 






1882 


002744 


020041 


1883 


002746 


001403 


1884 


002750 


004767 


( 1 ) 


002754 


000025 


(1 ) 






1885 


002756 


000300 


1886 


002760 


01001 1 


1887 


002762 


021 100 


1888 


002764 


001 403 


1889 


002766 


004767 


( 1 ) 


002772 


000026 


( 1 ) 






1 890 






1891 


002774 


000300 


1892 






1893 


0027 76 


001 02 3 


1894 






1 895 






1896 






1897 






1 898 






1899 






1900 
1901 


003000 


005703 


1902 






1903 






1904 






1905 






1906 


003002 


001023 


1907 


003004 


062701 


1908 


003010 


020105 


1909 






1910 


003012 


103006 


191 1 


003014 


020011 



000005 000404 

003200 

000120 

002624 



j f ######♦##################*#################♦################### 

j#TEST 5 MARCHING l'S AND 0'S 

f *(1) THIS TEST WRITES A BACK GROUND OF THE WORD STORED 

j* AT BAKPAT. 

I»{2) READS EVERY LOCATION FOR CORRECT DATA, SWAPS BYTES 

f# AT THE LOCATION AND PROCEEDS IN MAX, TO MlN 

!# DIRECTION OF MEMORY LOCATIONS, 

>#(3) READS EVERY LOCATION FOP SWAPPED BAKPAT PATTERN 

l# WRITES BAKPAT BACKGROUND IN THE LOCATION AND PROCEEDS 

!» IN MIN, TO MAX, DIRECTION 

f*(4) REPEATS STEP 2 GOING IN MIN, TO MAX. DIRECTION 

>*(5) REPEATS STEP 3 GOING IN MAX, TO MIN, DIRECTION 

; | ««»»«»««#«**«««»»«•«#«»*«»»«•»*«#*»»•#*«*«»»»»««#»«»«««***«•#«• 

TST5I CMpB «5 f ftlJTESTN jCHECK FOR PROPER TEST SEQUENCE 



Hi 
231 



BEQ 
JSR 
24 

JSR 

CMP 
BEQ 
JSR 
25 

SWAB 

MOV 

CMp 

BEQ 

JSR 

26 



SWAB 
BNE 



BNE 
ADD 
CMP 

BHIS 
CMP 



,♦10 

PC, SEQERR 



PC, f*K WRTMEM 

R0,-(R1) 
31 

PC, ERROR 



R0, (Rl) 
(R1),R0 
4$ 

PC, ERROR 



R0 
9S 



108 

#2,R1 

R1,R5 

8$ 

R0, (Rl) 



)*EPROR# REPORT ERROR MESSAGE AND HALT AT FATHLT 
; »**«»«ERROR NUMBER 24**«*** 

jGO TO WRITE THE MEMORY WITH A BACKGROUND OF THE 
jWORD STORED IN BAKPAT 

jREAD THE CONTENTS OF LOCATION POINTED BY Ri 
JTO SEE IF IT HAS THE SAME VALUE AS R0 
!«ERROR« REPORT ERROR MESSAGE 
j **#«»*ERROR NUMBER 25»****# 



ISWAP THE BYTES AT (Rl) 

f READ (Rl) FOR CORRECT VALUE 



; #ERROR# REPORT ERROR MESSAGE 
;***«*#ERROR NUMBER 26«**»«* 



jSWAP THE BYTES OF THE REGISTER 

^CONTAINING BACKGROUND PATTERN 

I IF THE LOWER BYTE OF THE REGISTER 

I IS NOT THEN THE PROGRAM IS READING 

j THE MEMORY TO CONTAIN A BACK GROUND OF 

jBAKpAT AND WRITING THE SWAPPED WORD 

j IN WHICH CASE GO TO 9$ 

JR3 WAS WHEN THE PROGRAM ENTERED 

ITHIS TEST, AND IT IS NOT ALTERED UNTIL PASFLG=3 

I IF R3 EQUAL THEN THE PROGRAM IS 

J READING/WRITING MIN, TO MAX, OTHERWISE 

lIT IS GOING IN MAX, TO MIN, DIRECTION 

tlf R3 IS NOT CLEAR THEN GO TO 10$ 

f OTHERWISE ADD 2 TO THE CONTENTS OF Rl 

I COMPARE Rl WITH THE MAX, MEMORY LOCATION TO 

I BE TESTED 

jIF R1>R5 THEN GO TO g$ OTHERWISE 
; READ (Rl) FOR THE CORRECT DATA 



DZKMA 


MACY11 


27(732) 


DZKMAB, 


,P1 1 


T5 


1912 


003016 


001757 


1913 






1914 


003020 


004767 


(1) 


003024 


000027 


(1) 






1915 


003026 


000753 


1916 


003030 


105237 


1917 


003034 


000300 


1918 


003036 


001742 


1919 






1920 






1921 


003040 


005103 


1922 


003042 


010401 


1923 


003044 


000763 


1924 






1925 






1926 


003046 


005703 


1927 


003050 


001353 


1928 






1929 






1930 


003052 


020104 


1931 






1932 


003054 


101333 


1933 


003056 


105237 


1934 


003062 


000300 


1935 


003064 


001753 


1936 






1937 






1938 


003066 


000714 


1939 
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MARCHING l'S AND 0'S 



JSR 
27 

BR 

INCB 
SWAB 
BEQ 



COM 
MOV 
BR 



TST 
BNE 



CMP 

BHI 
INCB 
SWAB 
BEQ 



3$ 

PC, ERROR 



3$ 

$#PASFLG 

R0 

2$ 



R3 

R4,R1 
7S 



R3 
58 



R1,R4 



2$ 

g#PASFLG 

R0 

7$ 



j WRITE COMPLEMENT OF THE DATA FOUND AT (Rl) 
J AND REPEAT UNTIL PI > R5 
TERROR* REPORT ERROR MESSAGE 
;»#####ERROR NUMBER 27*»«*** 



I IF THE LOWER BYTE OF R0 IS ALL 0'S 

jTHEN BEGIN READING BAKPAT SWAPPED WRITING BAKPAT 

; AND READING BAKpAT GOING FROM MAX, TO MIN , CPASFLGM] 

^OTHERWISE CLEAR R0 

jPUT THE LOWEST TESTING ADDRESS IN Rl 

; AND BEGIN READING WRITING l'S AND 

; READING l'S IN MIN, TO MAX, DIRECTION tPASFLG«3] 

;IF R3 IS NON 0, I.E. PASFLG*3 

1 THEN READ BAKPAT, WRITE 

jSWAPPED BAKPAT AND READ SWAPPED BAKpAT 

jIN MIN, TO MAX, DIRECTION 

f OTHERWISE TEST IS PROCEEDING IN MAX, TO 

jMIN, DIRECTION, 

|KEEP ON LOOPING UNTIL R1*R4 



jIF R0 SWAPPED HAS LOWER BYTE«0 

j THEN READ BAKPAT SWAPPED, WRITE BAKPAT, 

; AND READ BAKPAT GOING FROM MIN, TO MAX, 
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1956 






(3) 






(43 






(4) 






(43 






(4) 






(4) 






(4) 






(4) 






(43 






(43 






(43 






(43 






(43 






(43 






(33 






(23 


003070 


122737 


1957 






1958 






1959 


003076 


001403 


1960 


003100 


004767 


(13 


003104 


000030 


(13 






1961 


003106 


004737 


1962 






1963 


003112 


005037 


1964 


003116 


010403 


1965 


003120 


010401 


1966 


003122 


020011 


1967 


003124 


001403 


1968 


003126 


004767 


(13 


003132 


000031 


(13 






1969 


003134 


062701 


1970 


003140 


020105 


1971 


003142 


103767 


1972 


003144 


132737 


1973 


003152 


001002 


1974 


003154 


105237 


1975 






1976 


003160 


020305 


1977 


003162 


103012 


1978 


003164 


012702 


1979 


003170 


000313 


1980 


003172 


005302 


1981 


003174 


001375 


1982 


003176 


010337 


1983 


003202 


062703 


1984 






1985 






1986 


003206 


000744 


1987 


003210 


105237 


1988 


003214 


000337 


1989 


003220 


001732 


1990 


003222 


000721 


1991 







05-AUG-76 13(43 PAGE 6*16 
CELLS' VOLATILITY TEST 

I | »•*•«»»«•**«»«•»•*«*«»•*#«**»«*•««•«»«*»»«»•«»««»»«««»*#«««**«* 

!*TE3T 6 CELLS' VOLATILITY TEST 

|#(13 THIS TEST WRITES THE MEMORY WITH A BACK GROUND OF BAKPAT 

f *(23 WITH PASFLG80 THE TEST READS THE MEMORY FOR BAKPAT 

I* AND THEN INCREMENTS PASFLG 

|»(33 IT THEN READS/SWAPS BYTES/WRITES A LOCATION X FOR 

I* OVER 2 MSEC AND THEN READS THE MEMORY FOR BAKPAT 

|»(43 REPEATS STEP 3 WITH X-X+4K UNTIL END OF MEMORY IS ENCOUNTERED 

|*(53 IT THEN INCREMENTS PASFLG AND WRITES THE MEMORY TO 

I* BAKPAT AND WITH PA5FLGi>2 IT READS MEMORY FOR ALL 

f » SWAPPED BAKPAT AFTER WHICH PASFLG IS INCREMENTED TO 3 

t*(63 REPEATS STEPS 3 AND 4 READING THE MEMORY FOR SWAPPED 

|# BAKPAT INSTEAD OF BAKPAT , 

1 1 »•«»»»«*»*#«««»»«*««»«««***»*«#««*«»«««»«««*»»»»»«««»«««»#»«»«» 

000404 TST6I CMPB #6,»t8TESTN jCHECK FOR PROPER TEST SEQUENCE 







BEQ 


. + 10 


003032 




JSR 


PC, SEQERR 






30 




000120 


RPT6I 


JSR 


PC , 91 WRTMEM 


000306 




CLR 


MPASFLG 




181 


MOV 


P4,R3 




28: 


MOV 


R4,R1 




3 S I 


CMP 


R0# (R13 






BEQ 


4$ 


002446 




JSR 


PC, ERROR 






31 




000002 


43i 


ADD 


*2,R1 






CMP 


R1,R5 






BLO 


33 


000001 


000306 


BITB 


«1 , MPASFLG 






BNE 


58 


000306 




INCB 


P3PASFLG 




581 


CMP 


R3,R5 






BHIS 


78 


037776 




MOV 


#37776, R2 




est 


SWAB 


(R33 






DEC 


R2 






BNE 


68 


000354 




MOV 


R3,9#SAVLOC 


020000 




ADD 


#20000*R3 






BR 


2S 


000306 


7SI 


INCB 


JMPASFLG 


000316 




SWAB 


p#BAKPAT 






BEQ 


RPT6 




END6 J 


BR 


ENDS 



;*ERROR» REPORT ERROR MESSAGE AND HALT AT FATHLT 
j#*####ERROR NUMBER 30***«*« 

;GO TO WRITE THE MEMORY WITH A BACKGROUND OF THE 
jWORD STORED AT LOCATION BAKPAT 

JSET R3 

I AND Rl TO THE STARTING ADDRESS OF MEMORY UNDER TEST 
ICHECK (R13 FOR CORRECT DATA 

>#ERROR# REPORT ERROR MESSAGE 
; **«»«*ERROR NUMBER 3l»##### 

I INCREMENT Rl BY 2 

j SEE IF Rl HAS REACHED THE MAX , OF MEMORY 
ICHECK TO SEE IF PASFLGB0 OR 2 
I IN WHICH CASE INCREMENT PASFLG COUNTER BY 1 
jSEE IF R3 HAS REACHED THE MAX, OF THE MEMORY 
jWRITE INTO 1 LOC FOR >2MS (ABOUT 100MS3 



; SAVE LOCATION WRITTEN FOR 2MS FOR ERROR REPORT, 
j BY ADDING 1 TO THE 14TH ADDRESS BIT CAUSE 
JR3 TO POINT TO A LOCATION IN THE NEXT 
?4K BANK OF MEMORY 

; MAKE PASFLGa2 

tlf BAKPAT IS NOT BEING SWAPPED FOR THE 2ND 
J THEN GO BACK TO THE LOCATION RPT6 
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CELLS* VOLATILITY TEST 



SEQ 0043 
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SHIFTING DIAGONAL 











C 3 ) 








( 4 ) 








( 4 ) 








( 4 ) 








( 4 ) 








( 4 ) 








( 4 ) 








( 4 ) 








( 4 ) 








( 3 ) 








(2) 


003224 


1 22737 




2005 










003232 


001 40 3 




2007 


003234 


004767 


nflOft 7ft 


( 1 ) 


003240 


OvQKf 3 ifi 












2008 


003242 


005037 


000306 


2009 


003246 


010337 


aaa 10) A 


2010 








20| | 


003252 


010302 




2012 


003254 


052702 


017776 


2013 


rj V J A O v 


005722 




2014 


003262 


020502 




2015 


003264 


1 03001 




20|6 


003266 


010502 




2017 








201 6 


003270 


010337 


000302 


2019 








2020 


003274 


013701 


000304 


202 1 








2022 


003 300 


01 3700 


000316 


2023 


003 304 


020103 




2024 


003 306 


001010 




2025 


003 310 


062703 




2026 


00331 4 


032703 


0001 76 


2027 


003 320 


001 402 






003 322 






2029 


003 326 


000300 






003 330 


j 32737 


aaaaa 1 

YJX/tfX/V/ i 


2031 








2032 








2033 


003 3 36 


001 001 




2034 


003340 


01001 1 




2035 








2036 


003342 


020011 




2037 








2038 


003344 


001403 




2039 


003346 


004767 


002226 


(1) 


003352 


000033 




(1) 








2040 


003354 


062701 


000002 


2041 


003360 


020102 




2042 


003362 


103746 




2043 


003364 


005237 


000410 


2044 


003370 


105237 


000306 



000404 TST7 I 



1 1 »«»*#»«»*««#*»•*«#««»••*«*«»«»»»*«•*»»«««*•*#*««««•«*»#**»«»«#• 

f «TEST 7 SHIFTING DIAGONAL 

f »(1) THIS TEST WRITES THE MEMORY WITH A BACKGROUND OF BAKPAT 

l«(2) IT WRITES A DIAGONAL OF SWAPPED BAKPAT THROUGH EACH MEMORY BANK 

l«(3) READS THE MEMORY FOR CORRECT DATA 

|»(4) SHIFTS THE DIAGONAL AND REPEATS STEP 3 UNTIL THE 

I* DIAGONAL HAS BEEN SHIFTED 64 TIMES 

|»(5) WRITES A BACKGROUND OF SWAPPED BAKPAT, A DIAGONAL OF 

I* BAKPAT AND REPEATS FROM STEP 3 
I j •*#♦#*###*#########*###*#####*###»♦##♦########*♦############### 



est 
10$ 1 



BEQ 
JSP 
32 

CLR 
MOV 

MOV 

BIS 

TST 

CMP 

BHIS 

MOV 

MOV 

MOV 

MOV 

CMP 

BNE 

ADD 

BIT 

BEQ 

ADD 

SWAB 

BITB 



#7,S#$TESTN 



.♦10 

PC, SEQERR 



MPASFLG 

R3» IlLOWBNK 

R3,R2 
•17776, R2 
CR2H 
R5,R2 
41 

R5,R2 

R3,MSTRTDI 

9ILOWBNK, Rl 

MBAKPAT,R0 

Rl,R3 

10$ 

#2,R3 

#176, R3 

8$ 

#200, R3 
R0 

#1, MPASFLG 



BNE 


12$ 


MOV 


R0, (Rl) 


CMP 


R0» CR1) 


BEQ 


14$ 


JSR 


PC, ERROR 


33 




ADD 


82, Rl 


CMP 


R1,R2 


BLO 


6$ 


INC 


MSDEVCT 


INCB 


MPASFLG 



iCHECK FOR PROPER TEST SEQUENCE 



|*ERROR# REPORT ERROR MESSAGE AND HALT AT FATHLT 
l««##««ERROR NUMBER 32»***»* 



fLOWBNK CONTAINS ADDRESS OF THE LOWEST LOCATION 
jIN THE 4K BANK THAT CAN BE TESTED 

|R2 CONTAINS THE ADDRESS OF THE TOP OF THE BANK 
I ADD 2 TO R2 

;IF R2 IS GREATER THAN R5 THEN GO TO 4$ 

jNOW R2 CONTAINS THE ADDRESS OF THE HIGHEST LOCATION 

1 THAT CAN BE TESTED 

I LOAD STPTDI WITH THE STARTING ADDRESS OF THE 
^DIAGONAL 

jRl IS NOW POINTING TO THE LOWEST LOCATION IN THE 4K 
f BANK 

j STORE THE CONTENTS OF BAKPAT IN R0 

JIS Rl POINTING TO A LOCATION IN THE DIAGONAL ? 

I IF NOT THEN GO TO 10$ 

j THE FOLLOWING CODE IS USED TO PLACE THE 

I ADDRESS OF THE NEXT LOCATION IN THE DIAGONAL 

>IN R3 

J 

I DIAGONAL WILL CONTAIN SWAPPED BACKGROUND PATTERN 

f CONTENTS OF LOCATION PASFLG WILL BE EVEN IF THE 

|MEMORY IS BEING WRITTEN AND IT WILL BE ODD 

jIF IT IS ONLY BEING READ 

• t U IT IS BEING READ ONLY THEN GO TO 128 

^OTHERWISE WRITE THE MEMORY WITH THE CONTENTS 

jOF R0 

iCHECK THE LOCATION POINTED BY Rl TO CONTAIN 
1 PROPER DATA 

jIF IT IS OK THEN GO TO 148 
;*ERROR# REPORT ERROR MESSAGE 
;###*#*ERROR NUMBER 33**»*«* 

*CAUSE Rl TO POINT TO THE NEXT MEMORY LOCATION 
llS IT THE END OF THE BANK ? 
; IF NOT THEN GO TO 6$ 

I TELL APT WE ARE STIL RUNNING OKAY 
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DZKMAB.P1 1 T7 SHIFTING DIAGONAL 



2045 


003374 


013703 


000302 




MOV 


MSTRTDI, R3 


2046 


003400 


132737 


000001 C 


500306 


BITB 


#1, MPASFLG 


2047 


003406 


001330 






BNE 


4$ 


2048 


003410 


005723 






TST 


(R3H 


2049 


003412 


020302 






CMP 


R3,R2 


2050 


003414 


103003 






BHIS 


18$ 


2051 


003416 


105737 


000306 




TSTB 


MPASFLG 


2052 


003422 


100322 






BPL 


4$ 


2053 


003424 


013703 


000304 


1881 


MOV 


MLOWBNK, R3 


2054 














2055 


003430 


000337 


000316 




SWAB 


MBAKPAT 


2056 


003434 


001715 






BEQ 


48 


2057 














2058 


003436 


010203 






MOV 


R2,R3 


2059 














2060 


003440 


020205 






CMP 


R2,R5 


2061 














2062 


003442 


103677 






BLO 


2$ 


2063 


003444 


000666 




END7I 


BR 


END6 



SEQ 0045 



; LOAD R3 WITH THE STARTING ADDRESS OF THE DIAGONAL 
jHAS THE READ OF THE MEMORY BEEN DONE ? 
tIF NOT THEN GO TO 48 

j ADD 2 TO THE STARTING ADDRESS OF THE DIAGONAL 
t AND UNLESS THE END OF THE BANK IS REACHED 
1 

;OR THE DIAGONAL HAS BEEN ROTATED 64 TIMES 
j REPEAT FROM 48 

! MAKE R3 POINT TO THE LOWEST LOCATION IN THE 
% TN THE BANK UNDER TEST 

j AND IF THE TEST HAS NOT BEEN PERFORMED WITH THE 
^SWAPPED BACK GROUND PATTERN THEN GO TO 4$ 
I MAKE THE PRESENT HIGH BOUNDRY AS THE NEXT 
;LOW BOUNDRY 

fUNLESS THE PRESENT HIGH BOUNDRY IS ALSO THE 
I HIGH BOUNDRY FOR THE MEMORY UNDER TEST 
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READ RECOVERY GALLOPING TEST THROUGH EVERY 64TH CELL 



SEQ 0046 





003446 


122737 


000010 


2092 








2093 


003454 


001403 




2094 


003456 


004767 


002454 


(1) 


003462 


000034 




(1) 
209S 


003464 


010402 




2096 


003466 


052702 


017776 


2097 








2096 


003472 


062702 


000002 


2099 


003476 


020205 




2100 


003500 


101401 




2101 


003502 


010502 




2102 


003504 


005046 




2103 


003506 


010200 




2104 


003510 


013740 


000316 


2105 








2106 


003514 


020003 




2107 


003516 


101374 




2108 


003520 


010301 




2109 








2110 


003522 


023710 


000316 


2111 








2112 


003526 


001410 




2113 


003530 


010001 




2114 


003532 


013700 


000316 


21 15 


003536 


004767 


002036 


(1) 


003542 


000035 




(1) 









1 1 «»»««**««»««*»•*#**«*»#»*»*«*»«»«*•*««**«#»«*#•»«»»«««#**«»*#«# 

j#TEST 10 READ RECOVERY GALLOPING TEST THROUGH EVERY 64TH CELL 

j«(l) THIS TEST WRITES THE MEMORY WITH A BACK GROUND PATTERN 

t# STORED AT LOCATION BAKPAT 

{♦(2) TEST BEGINS AT LOWEST LOCATION BEING TESTED 

{* (LETS NAME IT 'A') 

f*(3) LETS NAME THE 1ST LOCATION IN THE ROW/COLUMN UNDER TEST AS 

!*(4> SWAPS BYTES FOR LOCATION *A% 

I#(5) READS *A*, READS *B* 

f»(6) »B» a *B' + 200 (MAKES »B'c64TH CELL I.E. 200TH OCTAL 

I* LOCATION FROM THE PRESENT LOCATION OF 'B') 

!»(7) REPEATS STEPS 5 AND 6 UNTIL IS GREATER THAN THE 

{» END OF THE 4K BANK OF THE MEMORY IN WHICH 'A' IS RESIDING 

{*(8) A ■ A+2 

|#(9) REPEATS STEPS 3*>8 UNTILL 'A' REACHES THE END OF THE BANK 

f*(10) GOES TO THE NEXT 4K BANK OF MEMORY AND REPEATS STEPS 

{* 3-9 UNTIL THE END OF THE MEMORY 

f*(ll) AFTER EXECUTING THE TEST BYTES ARE SWAPPED AT 

!# LOCATION BAKPAT AND STEPS 1-10 ARE REPEATED 

!#(12) IN THIS TEST P0 IS POINTING TO LOCATION 'A', Rl TO 

!# LOCATION 'B # , R2 TO THE END OF THE 4K BANK IN WHICH THE 

l» TEST IS TAKING PLACE AND R3 TO THE LOWEST LOCATION IN THE 

{# COLUMN/ROW CONTAINING 'A* AND *B' 

!»(13) MOST OF THE CODE USED BY THIS TEST IS ALsO USED BY TEST 11 
I | **»**««»«»*»»*««*«**•»*»«**»«*«»*«#*«*#**«»**««*»»«»***««**»*«# 



TST10I 


CMPB 


«10»e«fTESTN 


{CHECK FOR PROPER TEST SEQUENCE 




BEQ 


,♦10 






JSR 


PCSEQERR 


{*EBROR# REPORT ERROR MESSAGE AND HALT AT FATHLT 




34 




f»»*#««ERROR NUMBER 34****** 




MOV 


P4,R2 


{ SET R2 TO THE LOWEST MEMORY UNDER TEST 


PPT101 


BIS 


#17776, R2 


{ MAKE R2 POINT TO THE HIGHEST LOCATION IN THE 4K 








; BANK FOP WHICH GALLOPING WILL BE PERFOMED 


GALLOP! 


ADD 


#2,R2 


• INCREMENT R2 BY 2 




CMP 


R2,R5 


\ IF THE HIGH BOUNDRY OF THE TEST IS HIGHER THAN 




BLOS 


2$ 






MOV 


R5,R2 


I THE MAXIMUM ALLOWED ADDRESS THEN ADJUST R2 


2SI 


CLR 


-(SP) 






MOV 


R2,R0 




4$s 


MOV 


e*BAKPAT,-(R0) 


{WRITE THE MEMORY UNDER TEST WITH A BACKGROUND OF 








; BAKPAT 




CMP 


R0,F3 






BHI 


4$ 




6S J 


MOV 


R3,R1 


»R3 AND Rl ARE POINTING TO THE LOWEST LOCATION THAT 








{CAN BE TESTED IN THIS BLOCK 




CMP 


P#BAKPAT, (R0) 


{ BEFORE STARTING THE GALLOPING TEST FOR LOCATION 








{(R0) CHECK IT 




BEO 


83 


{CONTINUE IF OK 




MOV 


R0,R1 


{OTHERWISE PREPARE TO REPORT THE ERROR 




MOV 


(S#BAKPAT,R0 






JSR 


PC, ERROR 


{•ERROR* REPORT ERROR MESSAGE 




35 




• *#*###ERROR NUMBER 35»##### 



DZKMA 


MACYll 


27(732) 


05-AUG- 


76 13143 PAGE 


6-21 






DZKMAB 9 P1 I 


T10 


READ RECOVERY GALLOPING 


TEST 


THROUGH EVERY 64TH 


CELL 


2116 


003544 


010011 






MOV 


R0,(R1) 


; RESTORE THE CONTENTS OF (Rl) 


2117 


003546 


010100 






MOV 


R1,R0 


{ RESTORE R0 


2118 
2119 


003550 


000310 




8S I 


SWAB 


(R0) 




2120 


003552 


03101 1 




1011 


BIT 


(R0), (Rl) 


{CHECK TO SEE THAT NONE OF THE BITS SET 


2121 














tIN (P0) ARE SET IN (Rl) AND VICE VERSA 


2122 


003554 


020001 






CMP 


R0,R1 


{ THE ONLY EXCEPTION TO THIS WILL BE WHEN R0*R1 


2123 
2124 


003556 


001412 






BEQ 


12$ 




2125 


003560 


021137 


000316 




CMP 


(R1),(MBAKPAT 


{CHECK THAT (Rl) HAS BAKPAT IN IT 


2126 


003564 


001407 






BEQ 


12$ 




2127 


003566 


010046 






MOV 


P0,-(SP) 


; SAVE R0 ON STACK 


2128 


003570 


013700 


000316 




MOV 


g#BAKPAT,R0 


{PLACE THE PATTERN WORD IN R0 


2129 


003574 


004767 


002000 




JSR 


PC, ERROR 


{*ERROR* REPORT ERROR MESSAGE 


(1) 


003600 


000036 






36 




1 ####»»ERROR NUMBER 36****** 


(1) 
2130 


003602 


012600 






MOV 


(SP)+,R0 


5 RESTORE R0 


2131 


003604 


021037 


000320 


12SI 


CMP 


(R0), JMSWAPAT 


{CHECK THAT (R0) HAS SWAPPED BAKpAT IN IT 


2132 


003610 


001412 






BEQ 


14$ 




2133 


003612 


010146 






MOV 


R1,-(SP) 


{SAVE Rl ON THE STACK 


2134 


003614 


010001 






MOV 


R0#R1 


{MAKE Rl POINT TO THE FAILING LOCATION 


2135 


003616 


013700 


000320 




MOV 


e#SWAPAT,R0 


{LOAD R0 WITH THE EXPECTED RESULT IN (Rl) 


2136 


003622 


004767 


001752 




JSR 


PC, ERROR 


{*ERROR* REPORT ERROR MESSAGE 


(1) 


003626 


000037 






37 




{*«»««*ERROR NUMBER 37****#* 


(1) 
2137 


003630 


010011 






MOV 


R0,(R1) 


{RECOVER (Rl) FROM THE ERROR 


2138 


003632 


010100 






MOV 


R1,R0 


{ RESTORE R0 


2139 


003634 


012601 






MOV 


(SPH,R1 


{AND RESTORE Rl 


2140 


003636 


122737 


000011 


000404 1 43 I 


CMPB 


#11,9#$TESTN 


{IS THE PROGRAM EXECUTING TEST # 11 ? 


2141 


003644 


001402 






BEQ 


16$ 


{IF SO THEN GO TO 16$ 


2142 


003646 


062701 


000176 




ADD 


#176, Rl 




2143 


003652 


062701 


000002 


165! 


ADD 


#2,R1 


{MAKE Rl POINT TO THE NEXT ADJACENT CELL 


2144 


003656 


020102 






CMP 


R1»R2 


{AND IF Rl HAS NOT REACHED THE END OF THE BOUNDRY 


2145 


003660 


103734 






BLO 


10$ 


{ THEN REPEAT FROM 10$ 


2146 


003662 


000320 






SWAB 


CR0H 


{RESTORE THE LOCATION FOR WHICH THE GALLOPING TEST 


2147 














{WAS BEING PERFORMED 


2148 


003664 


122737 


000011 


000404 


CMPB 


#11 ,M$TESTN 


{IS IT TEST 11 ? 


2149 


003672 


001407 






BEQ 


17$ 


{IF SO THEN GO TO 17$ 


2150 


003674 


005723 






TST 


(R3H 


{OTHERWISE INCREMENT R3 BY 2 


2151 


003676 


062716 


000002 




ADD 


#2,(SP) 


{FOR EVERY ROW/COLUMN TESTED ADD 2 


2152 


003702 


105716 






TSTB 


(SP) 




2153 


003704 


100002 






BPL 


17$ 


{UNTIL (SP) IS 200 


2154 


003706 


161603 






SUB 


CSP),R3 


{SUBTRACT 200 FROM R3 


2155 


003710 


005016 






CLR 


(SP) 




2156 


003712 


032700 


000177 


17f I 


BIT 


#177, R0 


{AT A 64TH CALL BOUNDRY? 


2157 


003716 


001002 






BNE 


18$ 


{ BRANCH IF NO 


2158 


003720 


005237 


000410 




INC 


9#$DEVCT 


{ TELL APT WE ARE STILL RUNNING 


2159 


003724 


020002 




18ft 


CMP 


R0,R2 


{IF R0 HAS NOT REACHED THE END OF THE BOUNDRY 


2160 


003726 


103674 






BLO 


6$ 


{THEN REPEAT FROM 6$ 


2161 


003730 


162603 






SUB 


(SP3+,R3 


{RESTORE SP AND R3 


2162 


003732 


000337 


000320 




SWAB 


MSWAPAT 




2163 


003736 


000337 


000316 




SWAB 


MBAKPAT 




2164 


003742 


001660 






BEQ 


2$ 


{IF THE LOWER BYTE OF BAKPAT IS THEN REPEAT FROM 


2165 


003744 


010203 






MOV 


R2,R3 


{OTHERWISE MAKE THE PRESENT HIGH BOUNDRY AS THE 


2166 














{ NEXT LOW BOUNDRY 


2167 


003746 


020205 






CMP 


R2,R5 


* 
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SEQ 0048 



2168 


003750 


001410 




BEQ 


END10 


1 1F PREVIOUS HIGH BOUNORY WAS THE END OF THE 


2169 












I TEST BOUNDRY THEN EXIT THE TEST 


2170 


003752 


032702 


017776 


BIT 


#17776, R2 


f WAS IT A 4K BOUNDRY ? 


2171 


003756 


001025 




BNE 


RPT11 


1 IF NOT THEN WE WERE PERFORMING TEST U WITH LONG 


2172 












t GALLOPING TEST DISABLED 


2173 


003760 


122737 


000011 000404 


CMPB 


#U,M$TESTN 


J IF IT IS TEST # U THEN GO TO REPEAT TEST 11 


2174 


003766 


001421 




BEQ 


RPTU 




2175 


003770 


000636 




BR 


PPT10 


^OTHERWISE REPEAT TEST 10 


2176 


003772 


000624 


END10I 


BR 


END7 





2177 
2178 
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2 


208 




C3) 




C4) 




[4) 




4) 




t4) 




[4) 




4) 




4) 




4) 




4) 




4) 




4) 




4) 




4) 




4) 




4) 




[4) 




4) 




4) 




4) 




4) 




4) 




4) 




C4) 




C4) 




[4) 




t3) 




[2) 


22 


209 


V 


210 


2 


211 




1) 




1) 


2' 


212 


2213 


2' 


214 


2 


215 


2216 


V 


217 


r 


218 



} J ###########*######♦##*#################»########»######♦####### 

j#TEST 11 READ RECOVERY LONG GALLOP ING/FAST GALLOPING TEST 



2219 
2220 
2221 
2222 
2223 
2224 



>»( 
!*( 
I 

l*( 

!*( 

t*( 

l*( 

»*( 

I* 

I * 

!* 

I * 

I* 

>»( 

I* 

f# 

I * 
I * 
!«( 
I*( 
I * 
I * 
!#( 



9) 
10) 



11) 



THIS TEST WRITES MEMORY WITH BAKPAT 

THE TEST BEGINS AT THE LOWEST LOCATION BEING TESTED 
(LETS NAME IT »B') 

'A'-'B* [MOVE THE ADDRESS OF 'B* TO THE POINTER FOR LOCATION ' 
SWAPS BYTES FOR LOCATION 'A' 
READS 'A', READS *B* 
•B # s'B*+2 

IF GALLOPING OPTION BIT AT SSWREG IS HIGH THEN STEPS 4 AND 5 
ARE REPEATED UNTIL *B' REACHES THE HIGHEST MEMORY LOCATION 
OF THE 4K BANK IN WHICH 'A* IS RESIDING, THEN »A» IS 
DECREMENTED BY 2 AND AFTER MAKING »B* TO POINT TO THE LOWEST 
LOCATION OF THE 4K MEMORY BANK CONTAINING »A' STEPS 3,4,5 AND 
6 ARE REPEATED UNTIL *A' EQUALS THE END OF THE ENTIRE MEMORY 
IF GALLOPING OPTION BIT IS NOT HIGH THEN STEPS 4 AND 5 ARE 
REPEATED UNTIL *B* IS POINTING TO A CELL IN THE NEXT COLUMN 
IF SEQUENTIAL CELLS LIE ALONG THE ROW, OR THE NEXT ROW 
IF SEQUENTIAL CELLS LIE ALONG THE COLUMN, AT WHICH TIME 
STEPS 2,3,4,5 AND 7 ARE REPEATED UNTIL THE END OF THE MEMORY 
TEST IS REPEATED FOR THE OPPOSITE BACKGROUND DATA 
IN THIS TEST R0 POINTS TO LOCATION «A', Rl TO LOCATION 
'B', R2 TO THE HIGHEST LOCATION AND R3 TO THE LOWEST 
LOCATION IN A 64/4K CELL BOUNDRY 

MOST OF THE CODE USED BY TEST 10 IS ALSO USED BY THIS TEST 



A'3 



% }«»»«*«««*»«*»««#«««*«*»»*»««#«»««»*»**«*#»»«•«««*«**«»«»•«»*»«« 



003774 


122737 


000011 


000404 TSTHI 


CMPB 


#tl,0#STESTN 


fCHECK FOR PROPER TEST SEQUENCE 


004002 


001403 






BEQ 


.♦10 




004004 


004767 


002126 




JSR 


PC, SEQERR 


)«ERROR« REPORT ERROR MESSAGE AND HALT AT FATHLT 


004010 


000040 






40 




1 *««*««ERROR NUMBER 40**»»*« 


004012 


010402 






MOV 


R4,R2 


I MAKE R2 TO POINT TO THE LOWEST LOCATION 














| UNDER TEST 


004014 


105777 


174430 




TSTB 


9SWR 


1 LONG GALLOP ENABLED? 


004020 


100004 






BPL 


RPT11 


} BRANCH IF NO 


004022 


004767 


002540 




JSR 


PCPNTMES 


I TYPE "GLP* 


004026 


046107 


000120 




.ASCIZ 


/GLP/ 




004032 


105777 


174412 


RPT11I 


TSTB 


9SWR 


; LONG GALLOPING ENABLED? 


004036 


100613 






BMI 


RPT10 


f BRANCH IF YES 














I TO RPT10 


004040 


052702 


000176 




BIS 


#176, R2 


f OTHERWISE SET THE LOW ORDER BITS OF THE ADDRESS 














;TO GET THE HIGH BOUNDRY 


004044 


000612 






BR 


GALLOP 


1 PERFORM GALLOPING TEST 



DZKMA 


MACYl 1 


27(7323 


DZKMAB 


pi 1 


f 1 2 


224? 






C 3 ) 






(4) 






( 4 ) 






(43 






(43 






(43 






( 4 ) 






W \ 






( 4 ) 






(43 






(43 












(43 






(43 






(43 






(43 






(43 






(43 






ft* 






( 4 ) 






(33 






(23 


aaAaAf, 

tlv t w io 


122737 




004034 


\av I 110 j 


2249 






(13 


aaiat o 
0104100 I 


mora a a i 

WW 1 1 


(13 






2250 






2251 


aa Aa& A 


012702 




aa Anna 


012703 


2253 


004074 


1 12737 


2254 


004 102 


01 0401 


2255 






2256 


004 104 


0l 3700 


22§7 


004 110 


03020 i 






aa 1 aaii 

1010 I C7I01 




01041 14 






0041 16 


aa 4 da A 

I010 1 1101 


2261 




aae 4 aa 

E>I73 1 10 r/ 


2262 






2263 






2264 






2265 






2266 


004122 


000402 


2267 


004124 


030301 


2268 






2269 


004126 


001774 


2270 


004130 


132737 


2271 


004136 


001001 
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000012 
002054 



000404 TST12I 



I j ############################################################### 

f #TEST 12 WORST CASE TESTING FOR CORE MEMORY 

•(13 STARTING FROM THE LOWEST LOCATION UNDER TEST THE MEMORY 

» IS WRITTEN WITH A BACKGROUND OF BAKPAT, HOWEVER LOCATIONS 

# HAVING ADDRESS SUCH THAT EXCLUSIVE OR OF ADDRESS BITS I & 

# 8 8 1 ARE WRITTEN TO A VALUE OF SWAPPED BAKPAT 
#(23 STARTING FROM THE LOWEST LOCATION THE MEMORY IS CHECKED 

# TO CONTAIN THE CORRECT DATA AS EXPLAINED IN STEPS 3 & 4, 

# UNTILL THE HIGHEST LOCATION UNDER TEST IS REACHED 
#(33 READ EACH LOCATION FOR THE CORRECT CONTENT 

*(43 COMPLEMENT THE LOCATION AND READ IT| COMPLEMENT THE LOCATION 

# BACK TO ITS ORIGINAL VALUE AND READ IT AGAIN 
#(53 STARTING FROM THE HIGHEST LOCATION UNDER TEST REPEAT STEPS 

# 3 6 4 UNTIL THE LOWEST LOCATION UNDER TEST IS REACHED 
#(63 REPEAT STEPS 1-5, HOWEVER THIS TIME LOCATIONS WITH XOR 

# OF ADDRESS BITS 8 6 13 >1 ARE WRITTEN TO SWAPPED BAKPAT 
#(73 REPEAT STEPS 1*5, HOWEVER THIS TIME LOCATIONS WITH XOR 
« OF ADDRESS BITS 3 & 9 si ARE WRITTEN TO SWAPPED BAKPAT 
#(83 REPEAT STEPS 1-7 WITH A BACKGROUND OF SWAPPED BAKPAT AND 

# THE LOCATIONS TO BE WRITTEN TO SWAPPED BAKpAT WRITTEN TO 

# BAKPAT, 

f | »«*#«#•#*»#«*»•»•««#««##•#«####«•«####«##•»###«##*#«#•#«»#«#««# 



1 000306 111 
2$l 



000002 000306 1211 



CMPB 
BEQ 
JSR 
41 



MOV 
MOV 
MOVB 
MOV 

MOV 
BIT 
BNE 
BIT 
BEQ 
COM 



BR 
BIT 

BEQ 

BITB 

BNE 



»12,»MTESTN 

,♦10 

PC, SEQERR 



lit R2 
#400, R3 
«1,»#PASFLG 
R4,R1 

9IBAKPAT, R0 

R2,Pt 

8$ 

R3,R1 
12$ 

R0 



12$ 
R3,R1 

6$ 

&2,0#PASFLG 
14$ 



{CHECK FOR PROPER TEST SEQUENCE 



l#ERROR# REPORT ERROR MESSAGE AND HALT AT FATHLT 
;######ERROR NUMBER 4l»»*#«« 



j PREPARE TO TAKE THE EXCLUSIVE OR OF ADDRESS BITS 1 
I AND 8 

; INITIALIZE THE COUNTER FOR THE SUBTEST 
jPLACE THE STARTING ADDRESS OF MEMORY UNDER 
1 TEST IN Rl 

jCHECK TO SEE IF ADDRESS BIT STORED IN R2 IS SET 
|IF IT IS SET THEN GO TO 8$ 

I CHECK TO SEE IF ADDRESS BIT POINTED BY R3 IS SET 
fIF IT IS NOT SET THEN GO TO 12$ 

jCOME HERE ONLY IF EXCLUSIVE OR OF ADDRESS BITS 
jPOINTED BY R2 £ POINTED BY R3 » 1 IN WHICH 
fCASE PREPARE TO WRITE THE LOCATION 
; WITH A COMPLEMENT OF LOCATIONS NOT MEETING 
i THIS CONDITION 

SCOME HERE IF ADDRESS BIT POINTED BY P2 IS 1 AND 
jCHECK ADDRESS BIT POINTED BY R3 

|IF ADDRESS BIT POINTED BY P3 IS THEN GO TO 6$ 
|IS IT 2ND OR 3RD PASS OF THE SUBTEST ? 
|IF SO THEN READ THE MEMORY 
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2289 


004140 


010011 








MOV 


R0,(R13 


^OTHERWISE WRITE THE MEMORY BFORE READING IT 


2290 


004142 


020011 






14$! 


CMP 


R0, (R13 


} READ THE MEMORY FOR CORRECT CONTENTS 


2291 


004144 


001403 








BEQ 


16$ 




2292 


004146 


004767 


001426 






JSR 


PC , ERROR 


l#ERROR» REPORT ERROR MESSAGE 


(13 


004152 


000042 








42 




;««#»«*ERROR NUMBER 42*»**»* 


(13 
2293 


004154 


012746 


000002 




16SI 


MOV 


#2,-(SP3 




2294 


004160 


005100 






18SJ 


COM 


R0 




2295 


004162 


005111 








COM 


(R13 




2296 


004164 


020011 








CMP 


R0, (R13 


; READ THE MEMORY AGAIN 


2297 


004166 


001404 








BEQ 


19$ 




2298 


004170 


004767 


001404 






JSR 


PC, ERROR 


|»ERROR# REPORT ERROR MESSAGE 


(13 


004174 


000043 








43 




j###*##ERROR NUMBER 43#****# 


(13 
2299 


004176 


010011 








MOV 


R0, (P13 


j RESTORE THE LOCATION (R13 


2300 


004200 


005316 






19S! 


DEC 


(SP3 




2301 


004202 


001366 








BNE 


18$ 


jEXECUTE THE CODE FROM 18$ TWICE 


2302 


004204 


005726 








TST 


(SP3 + 


1 RESTORE THE STACK POINTER 


2303 


004206 


122737 


000003 


000306 




CMPB 


t3,f»«PASFLG 


|IS IT THE 3RD PASS OF THE SUBTEST ? 


2304 


004214 


001412 








BEQ 


20$ 


;IF SO THEN GO TO 20$ 


2305 


004216 


062701 


000002 






ADD 


#2,Rl 


I IN FIRST 2 PASSES THE PROGRAM PROCEEDS IN 


2306 
















|MIN. TO MAX, DIRECTION 


2307 


004222 


020105 








CMP 


R1,R5 


|HAVE WE REACHED THE MAX, ADDRESS UNDER TEST ? 


2308 


004224 


103727 








BLO 


4$ 


|IF NOT THEN REPEAT FROM 4$ 


2309 


004226 


105237 


000306 






INCB 


HPASFLG 




2310 


004232 


122737 


000002 


000306 




CMPB 


#2,?#PASFLG 


I IF IT IS THE 2ND PASS OF THE SUBTEST 


2311 


004240 


001720 








BEQ 


2$ 


1 THEN REPEAT FROM 2$ 


2312 


004242 


162701 


000002 




20$! 


SUB 


#2,R1 


; OTHERWISE EXECUTE THE TEST IN MAX, TO MIN, 


2313 
















IDIRECTION 


2314 


004246 


020104 








CMp 


R1,R4 


1 HAVE WE REACHED THE MIN, ADDRESS UNDER TEST ? 


2315 


004250 


103315 








BHIS 


4$ 


|IF NOT THEN REPEAT FROM 4$ 


2316 


004252 


012702 


020000 






MOV 


#20000, R2 


1 PREPARE TO CHECK THE MEMORY WITH THE XOR OF 


2317 
















I ADDRESS BITS 8 AND 13 


2318 


004256 


105237 


000307 






INCB 


MPASFLG+1 


ITHE SUB TEST HAS CHECKED THE XOR ONE KIND 


2319 


004262 


123727 


000306 


000002 




CMPB 


@#PASFLG,#2 


lHAS TWO XOR COMBINATIONS BEEN CHECKED ? 


2320 


004270 


103701 








BLO 


1$ 


|IF NOT THEN GO TO 1$ 


2321 


004272 


101004 








BHI 


22$ 


I IF ALL THREE HAVE BEEN CHECKED THEN GO TO 22$ 


2322 


004274 


012702 


000010 






MOV 


#10, R2 


|IF IT IS THE 2ND XOR COMBINATION THEN CHECK 


2323 


004300 


006303 








ASL 


R3 


|FOR ADDRESS BITS 3 & 8 


2324 


004302 


000674 








BR 


1$ 




2323 


004304 


005137 


000316 




22$! 


COM 


09BAKPAT 


jIF THE TEST WAS NOT PERFORMED WITH THE SWAPPED 


2326 


004310 


105737 


000316 






TSTB 


MBAKPAT 




2327 


004314 


001634 








BEQ 


TST12 


7BAKPAT THEN RE-EXECUTE THE TEST 


2328 


004316 


000623 






END121 


BR 


END 10 
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2 359 If ***«»«#»***#«*«»•»#«*#•#*#«»*»«*«##«»«««»#»»*«*»»**»*««••#•«**• 

(3) j*TEST 13 WRITE RECOVERY TEST 

(4) {* THIS TEST DIFFERS FROM 0-12 IN THAT IT CONSISTS OF A SMALL TEST PROGRAM 
(4) I* ACTUALLY RUNNING IN THE 4K BANK UNDER TEST. 

(4) |* THE PROGRAM IS SELF MODIFYING AND MAY BE DIFFICULT TO DEBUG, 

(4) f * TO AID IN THE DEBUG, BEFORE A A BANK IS ENTERED "TST13 BANK XX" 

(4) I* IS TYPED. THIS WILL ALLOW THE USER TO AT LEAST SEE WHICH MEMORY 

(4) >* BANK FAILED, 

(4) I* THE TEST CONSISTS OF 1/2 OF THE BANK STORED WITH "MOV R2,-(PC)" 

(4) I* AND THE OTHER 1/2 CONTAINING "177667". "177667" IS THE COMPLEMENT 

(4) I* OF "JMP (R0)" INSTRUCTION, 

(4) f* R2 CONTAINS "COM -(Rl)" INSTRUCTION ON ENTRY TO THE BANK AND Rl CONTAINS 

(4) I* THE HIGHEST TEST ADDRESS IN THAT BANK, THE HIGHEST TEST ADDRESS IS 

(4) ;* USUALLY ON 4K BOUNDARIES, WHEN TESTING BANK RELOCATED, HOWEVER 

(4) f* Rl CONTAINS THE FIRST FREE TEST ADDRESS BELOW THE DIAGNOSTIC, 

(4) {* IF YOU UNDERSTAND THIS SO FAR THE REST IS EASY. 

(4) I* THE TEST EXECUTION IS AS FOLLOWSl 

(4) I* 1 , THE "MOV R2,-(PO" INSTRUCTION EXECUTES STORING 

(4) ?» THE CONTENTS OF R2 IN THE ADDRESS IT VACATED (DUE TO -(PC) , 

(4) i* 2. SINCE R2 CONTAINS A "COM -(Rl)" INSTRUCTION IT COMPLEMENTS 

(4) >* THE HIGHEST ADDRESS UNDER TEST. THIS ADDRESS CONTAINED 

(4) !* "177667" SO AFTER THE COM -(Rl) IT EQUALS 110 

(4) f * CLEVERLY THIS IS THE "JMp (R0)" INSTRUCTION, 

(4) I* 3, THIS SEQUENCE CONTINUES UNTIL THE "MOV R2,-(PC) INSTRUCTIONS 

(4) f * REACH THE MIDDLE OF THE TEST BANK, THEN THE »JMp (R0)« INSTRUCTION IS 

(4) |* AND EXECUTED. R0 CONTAINED THE RETURN ADDRESS BACK 

(4) I* TO TEST 13, 

(4) I* 4, THESE STEPS ARE REPEATED FOR EACH BANK UNDER TEST, 

(4) t * 

(3) | j #####»######*♦#***♦*###♦###########»######♦##########♦######### 

(2) 004320 122737 000013 000404 TST13! CMPB #13,3#$TESTN {CHECK FOR PROPER TEST SEQUENCE 

2360 004326 001403 BEQ ,+10 

2361 004330 004767 001602 JSR PC, SEQERR {*EPROR* REPORT ERROR MESSAGE AND HALT AT FATHLT 
(1) 004334 000044 44 {######ERROR NUMBER 44****** 

(1) 

2362 004336 012702 010247 lSl MOV #10247, R2 {PLACE THE Op CODE OF INSTRUCTION MOV R2,-(PC) 

2363 JIN R2, 

2364 004342 012700 177667 MOV #177667, R0 {PLACE THE COMPLEMENT OF THE INSTRUCTION 

2365 7 JMP (R0) IN R0 

2366 ! INSURE LOWEST TEST ADDRESS TO END OF 4K SEGMENT IS MULTIPLE OF 2 

2367 {SINCE THE TEST STORES "MOV R2,-(PC) IN 1/2 AND 177667 IN THE OTHER 1/2 
2368 

2369 004346 010546 2$i MOV R5,«(SP) {SAVE R5 

2370 004350 010446 MOV R4,«(SP) f STORE LOWEST ADDRESS ON STACK 

2371 004352 000241 29$ I CLC 

2372 004354 006005 ROR R5 {MAKE POSITIVE BYTE COUNT OF HIGH ADDRESS 

2373 004356 006004 ROR R4 ;DO SAME FOR LOWEST ADDRESS 

2374 004360 160405 SUB R4,R5 f GET DIFFERENCE OF LOWEST ADDRESS AND HIGHEST 

2375 004362 006005 ROR R5 {IF DIFFERENCE IS ODD THEN R4 IS AT LOWEST ADDRESS 

2376 004364 103002 BCC 30$ ; BRANCH IF R4 IS AT LOWEST TEST ADDRESS, 

2377 004366 062716 000002 ADD #2,(SP) { INCREASE LOWEST TEST ADDRESS BY 2 

2378 004372 012604 30$! MOV (SPH,R4 j RESTORE R4 (POSSIBLY INCREASED BY 2 FROM ENTRY) 

2379 004374 012605 MOV (SP)*,R5 j RESTORE HIGHEST TEST ADDRESS 

2380 004376 010403 MOV R4,R3 {PLACE THE LOWEST LOCATION UNDER TEST 

2381 {IN R3 

2382 004400 000405 BR 28$ f LEAVE LOW BITS OF R3 ALONE FIRST TIME IN CASE BANK 
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2383 004402 042703 017776 3$J BIC #17776, R3 {CAUSE R3 TO POINT TO THE LOWEST LOCATION 

2384 j IN THE 4K BANK UNDER TEST 

2385 004406 105737 000405 TSTB S#REL { ARE WE RELOCATED? 

2386 004412 100504 BMI 14$ {BRANCH IF YES-TEST BANK0 ONLY- 

2387 004414 020305 28$ S CMP R3,R5 {IF R3 IS HIGHER THAN THE HIGHEST LOCATION 

2388 004416 103102 BHIS 148 j UNDER TEST THEN EXIT 

2389 { IF R5 LESS THAN 20000 THEN WE ARE TESTING BANK0 RELOCATED IN BANK0 

2390 004420 020527 020000 CMP R5, #20000 {IS HIGHEST TEST ADDRESS BELOW 4K? 

2391 004424 103002 BHIS 31$ {BRANCH IF NO 

2392 004426 010501 MOV R5,R1 {SET Rl TO HIGHEST TEST ADDRESS IN BANK0 

2393 004430 000405 BR 32$ 
2394 

2395 004432 010301 3 1 $ I MOV P3,R1 {SET PI TO LOWEST CURRENT TEST ADDRESS 

2396 004434 042701 017776 BIC #17776, Rl {CLEAR LOW ORDER ADDRESS BITS 

2397 004440 062701 020000 ADD #20000, Rl {CAUSE Rl TO POINT TO THE HIGHEST LOCATION+2 

2398 {OF THE 4K BANK BEING POINTED BY R3 

2399 004444 020137 000340 32$ 1 CMP Rl , (MMAXMEM {IF Rl IS HIGHER THAN MAX, OF THE 

2400 004450 101065 BHI 14$ {MEMORY+2 ALTHOUGH R3 IS LESS THAN R5 

2401 i THEN THE HIGHEST LOCATION UNDER 

2402 ; TEST IS NOT IN A 4K BANK EXIT 
2403 

2404 004452 132737 000001 000306 BITB #1,9#PASFLG {IS THE LOWEST BIT OF LOCATION PASFLG 

2405 004460 001101 BNE 16$ {SET? IN WHICH CASE BACK GROUND HAS 

2406 | ALREADY BEEN WRITTEN AND WRITE RECOVERY 

2407 { TEST IS BEING PERFORMED 
2408 

2409 004462 020304 4$| CMp R3,P4 {OTHERWISE WRITE THE BACKGROUND 

2410 004464 103430 BLO 8$ {DEFINED AT STEP 3, 

2411 004466 105737 000307 TSTB MPASFLG+1 { IS THE TEST JUST DOING READ, I.E. 

2412 004472 001002 BNE 6$ ;IS THE PASFLG+1 LOCATION NON ZERO? IF SO 

2413 {THEN GO TO 6$ 

2414 004474 012713 010247 MOV #10247, (R3) {WRITE THE LOCATION WITH THE OP CODE FOR MOV R2,-(PC) 

2415 004500 020213 6$| CMP R2,(R3) {READ (R3) TO CONTAIN CORRECT DATA 

2416 004502 001421 BEQ 8$ 

2417 004504 010046 MOV R0,»(SP) {SAVE R0 

2418 004506 010146 MOV R1,-(SP) { AND Rt ON THE STACK 

2419 004510 010301 MOV R3.R1 

2420 004512 010200 MOV R2,R0 ; SET R0a GOOD DATA FOR ERROR PRINTOUT 

2421 004514 004767 001060 JSR PC, ERROR {*ERROR* REPORT ERROR MESSAGE 
(1) 004520 000045 45 j*####*ERROR NUMBER 45****** 
(1) 

2422 004522 012601 MOV (SP)+,R1 { RESTORE Rl 

2423 004524 012600 MOV (SP)+,R0 { AND R0 

2424 004526 105737 000306 TSTB MPASFLG {IF PASFLG IS AND THE MEMORY DOES NOT HAVE 

2425 {THE PROPER DATA THEN WE DON'T WANT TO GO AND 

2426 {EXECUTE THE INSTRUCTIONS STORED IN MEMORY UNDER 

2427 {TEST 

2428 004532 001005 BNE 81 {BRANCH IF PASFLG NOT «0 
2429 

2430 004534 010200 MOV R2,R0 {SAVE FOR ERROR REPORT 

2431 004536 004767 001036 JSR PC, ERROR { *ERROR* REPORT ERROR MESSAGE 
(1) 004542 000046 46 {*#**«*ERROR NUMBER 46*****« 
(1) 

2432 004544 000664 BR END 12 {ABORT TST 13, 

2433 

2434 004546 062703 000002 Bit ADD #2,R3 {INCREMENT R3 BY 2 
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SEQ 0054 



2435 


004552 


162701 


000002 






SUB 


92, Rl 


2436 


004556 


020105 








CMP 


R1,R5 


2437 


004560 


103014 








BHIS 


12$ 


2438 


004562 


020103 








CMP 


R1,R3 


2439 


004564 


103405 








BLO 


10$ 


2440 


004566 


105737 


000307 






TSTB 


MPASFLG+1 


2441 


004572 


001002 








BNE 


10$ 


2442 


004574 


012711 


177667 






MOV 


#177667, (Rl) 


2443 
















2444 


004600 


020011 






10SI 


CMP 


R0, (Rl) 


2445 


004602 


001403 








BEG 


128 


2449 


004604 


004767 


000770 






JSR 


PC, ERROR 


(1) 


004610 


000047 








47 




(1) 
















2450 


004612 


020301 






12 Si 


CMp 


R3,R1 


2451 


004614 


103722 








BLO 


48 


2452 
















2453 










1 RETURN 


HERE AFTER PROGRAM R 


2454 
















2455 


004616 


062703 


020000 




1331 


ADD 


#20000, R3 


2456 


004622 


000667 








BR 


38 


2457 
















2458 


004624 


122737 


000001 


000306 


1431 


CMPB 


#1,?#PASFLG 


2459 
















2460 
















2461 
















2462 


004632 


001440 








BEQ 


24$ 


2463 
















2464 
















2465 


004634 


103633 








BLO 


END12 


2466 
















2467 
















2468 


004636 


105137 


000307 






COMB 


MPASFLG+l 


2469 
















2470 
















2471 


004642 


001241 








BNE 


2$ 


2472 


004644 


012702 


005141 






MOV 


#5141, R2 


2473 
















2474 


004650 


012700 


177740 






MOV 


#13$-,«6,R0 


2475 


004654 


060700 








ADD 


PC,R0 


2476 
















2477 
















2478 
















2479 


004656 


105237 


000306 




1581 


INCB 


9SPASFLG 


2480 


004662 


000631 








BR 


28 


2481 
















2482 


004664 


032777 


000020 


173556 


16$ i 


BIT 


#20,iSWR 


2483 


004672 


001017 








BNE 


188 


2484 


004674 


105737 


000042 






TSTB 


8#42 


2485 


004700 


001014 








BNE 


188 


2486 


004702 


004767 


001660 






JSR 


PCPNTMES 


2487 


004706 


051524 


030524 


020063 




.ASCIZ 


/TST13 BANK/ 




004714 


040502 


045516 


000 








2488 




004722 








.EVEN 




2489 


004722 


004767 


002476 






JSR 


PC, GETBNK 


2490 


004726 


004767 


001662 






JSR 


PC, 8TPDEC 



{DECREMENT Rl BY 2 

; WRITE THE BACKGROUND DEFINED AT STEP 4, 

I HAS STORING THE 177667 REACHED WHERE "MOV R2,-(PC) IS? 
{ BRANCH IF YES DON'T DESTROY THE MOV R2,-(PC) IS, 
; IS THE THE READ ONLY CHECK PASS? 
j BRANCH IF YES 

{WRITE THE LOCATION WITH THE COMPLEMENT OF THE 

{OP CODE JMP (R0) 

{ READ Rl TO CONTAIN CORRECT DATA 

|*ERROR* REPORT ERROR MESSAGE 
;ft«»»*«ERROR NUMBER 47#****» 

{IF WE HAVE NOT REACHED THE MIDDLE OF 4K BANK 
{ THEN REPEAT FROM 48 



{OTHERWISE GO TO THE NEXT 4K BANK 



THE PROGRAM CONTROL COMES HERE AS FOLLOWS 
1 «PASFLG"0, PROGRAM HAS JUST COMPLETED A 

WRITE/READ CYCLE FOR THE BACK GROUND 

AND WANTS TO BEGIN THE WRITE RECOVERY TEST 
2-PASFLGsl, PROGRAM HAS JUST COMPLETED 

THE WRITE RECOVERY TEST AND WANTS TO 

READ MEMORY FOR CORRECT DATA 
3»PASFLGs2, PROGRAM HAS CORRECTLY READ THE 

MEMORY AND WANTS TO GO THE NEXT TEST, 

ENTER HERE WITH PASFLGa0, ON THE FIRST ENTRY 
ENABLE READ ONLY FOR THE MEMORY AND ON THE SECOND 
ENTRY DISABLE READ ONLY 

PLACE THE OP CODE FOR INSTRUCTION COM -(Rl) 
IN R2 

PLACE THE RETURN ADDRESS IN R0 AS 138 
THUS WHEN THE READ RECOVERY TEST REACHES 
THE MIDDLE OF THE 4K MEMORY THEN THE 
INSTRUCTION EXECUTED WILL BE JMP (R0) 
BRANCHINGING THE PROGRAM TO 138 
INCREMENT PASFLG BY 1, 



{HAS THE PRINTOUTS BEEN SUpRESSED ? 

{IF SO THEN GO TO 188 

{IS THE PROGRAM RUNNING UNDER ACT? 

{BRANCH IF YES 

; TYPE THE BANK UNDER TEST 



; GET BANK NO, UNDER TEST INTO DEC WRD FOR PRINT , 
{ TYPE BANK NO, UNDER TEST 
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2491 
2492 
2493 
2494 
2495 
2496 
2497 
2498 
2499 
2500 
2501 



004732 000113 



004734 105137 000307 
004740 012700 000110 
004744 000744 



188! JMP 
2481 



COMB e#PA5FLG+l 
MOV #110, R0 

BR 15$ 



ITST13 EXITS VIA END12, 



{BEGIN EXECUTING MOV R2,-(PC) ,COM -(Rl) SEQUENCE IN TES 



{ PLACE THE OP CODE FOR JMP CR0) IN R0 

{ READ THE MEMORY FOR CORRECT DATA AFTER 

yINCREMEMTING PASFLG TO 2 
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SEQ 0056 



2506 


004746 


0127 37 


000377 


0003 1 6 


RELOCl 


MOV 


#377, MBAKPAT 






If f If I 


en o ant 






TSTB 


9 W MM AVA 


2508 


004760 


001 065 








BNE 


CONTMM 


2509 
















2510 


004762 


032777 


001 000 


173460 




BIT 


# 1000, 9SWR 


2511 


004770 


001046 








BNE 


CKDONE 


2512 


004772 


105737 


000405 






TSTB 


MREL 


2513 


004776 


1 00420 








BMI 


RELOER 


2514 


005000 


112737 


000200 


000405 




MOVB 


#200, 9#REL 


2515 
















2516 










I RELOCATE THE 


DIAGNOSTIC TO H 


2517 
















2518 
















2519 


005006 


004767 


001554 






JSR 


PC, PNTME5 


2520 


005012 


042522 


047514 


000103 




.ASCIZ 


/RELOC/ 


2521 












.EVEN 
MOV 




2522 


005020 


013705 


000340 






MMAXMEM, R5 


2523 
















2524 


005024 


014445 






23: 


MOV 


»(R4) , -(R5) 


2525 


005026 


020427 


000430 






CMp 


R4, #BEGIN»50 


2526 


005032 


101374 








BHI 


2$ 


2527 


005034 


000165 


000050 






JMP 


50(R5) 


2528 
















2529 










>*RELOCATE THE 


DIAGNOSTIC BACi 


2530 
















2531 
















2532 


005040 


013705 


000346 




RELOERi 


MOV 


@#SAVR5, R5 


2533 


005044 


1 05737 


000405 






TSTB 


i#REL 


2534 


005050 


100016 








BPL 


CKDONE 


2535 
















2536 


005052 


012704 


000430 






MOV 


#BEGIN-50, R4 


2537 


005056 


012524 






28 t 


MOV 


(R5)+» (R4)+ 


2538 


005060 


020537 


000340 






CMP 


R5 , 9 # MAXMEM 


2539 


005064 


103774 








BLO 


2$ 


2540 


005066 


1 05037 


000405 






CLRB 


PIPEL 


2541 


005072 


010537 


000346 






MOV 


R5, (MSAVR5 


2542 


005076 


01 2706 


000500 






MOV 


#BEGIN, SP 


2543 


005 102 


010637 


000350 






MOV 


SP, i»SAVR6 


2544 


005106 


0001 37 


005 1 1 2 




CKDONEt 


JMp 


MLOWER 


2545 
















2546 
















2547 
















2548 


005112 


105737 


000315 




LOWER! 


TSTB 


G#SAVKBB 




005 116 










BNE 


8 TPSTK 


2550 


005120 


004767 


001714 




TSTMM I 


JSR 


PC , MEMMNG 


2551 
















2552 


005124 


105737 


000276 






TSTB 


8#MMAVA 


2553 


005130 


001462 








BEQ 


ENDPAS 


2554 


005132 


000402 








BR 


SCNTMM 


2555 


005134 


004767 


002052 




CONTMM | 


JSR 


PCUPMM 


2556 


005140 


012703 


000324 




SCNTMMi 


MOV 


#L0WTW0#P3 


2557 


005144 


004767 


002160 






JSR 


PCGETSIZ 


2558 
















2559 


005150 


012704 


020000 






MOV 


#20000, R4 


2560 
















2561 


005154 


020237 


172342 






CMP 


R2,8#172342 



|IS THE MEMORY MANAGEMENT BEING TESTED ? 

flF SO THEN GO TO CONTMM AND CONTINUE TESTING 

I MEMORY MANAGEMENT 

I RELOCATION WANTED? 

{ BRANCH IF NO 

{ IF THE PROGRAM HAS ALREADY BEEN RELOCATED THEN ALSO 
; PLACE THE PROGRAM BACK IN LOWER CORE 
|0THEPWI5E PREPARE TO RELOCATE 



I TYPE "RELOC" 



; PREPARE TO LOAD THE PROGRAM IN THE HIGHEST 
{AVAILABLE MEMORY 
{RELOCATE THE PROGRAM 

{NEITHER RELOCATE NOR TEST LOCATIONS LOWER THAN BEGIN-50 



^RESTORE R5 

I IS DIAGNOSTIC IN RELOCATED STATE? 
{BRANCH IF NO 

j PREPARE TO RELOCATE THE PROGRAM TO LOWER CORE 



; SAVE R5 

{RESET STACK TO LOWER MEMORY 

{ "BEGIN" USES THIS TO RESET THE STACK, 

{TRANSFER THE PROGRAM CONTROL TO THE LOWER CORE 



{HERE DUE TO "C TYPED? 

{BRANCH IF YES (TYPE ERROR STACK) 

{ SET THE REGISTERS IF THE MEMORY MANAGEMENT 

{IS AVAILABLE 

{IS MEM, MANAG, AVAILABLE ? 

{BRANCH IF NO 

{BEGIN TESTING ABOVE 28K 

{GO TO UPDATE MEM, MANAG, REGISTERS 

{MAKE R3 POINT TO THE LOCATION LOWTWO 

{ LOAD BITS 6-10 OF R2 WITH THE BITS 13-17 

{OF THE LOWEST ADDRESS UNDER TEST 

{MAKE R4 POINT TO THE LOWEST LOCATION IN THE BANK 

{POINTED BY PAGE ADDRESS REGISTER 1 (PARI) 

{IS THE CONTENT OF R2 LOWER THAN THE CONTENT OF 
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2562 






2563 


005160 


103405 


2564 


005162 


050104 


2565 






2566 


005164 


162702 


2567 


005170 


004767 


2568 


005174 


004767 


2569 






2570 






2571 


005200 


004767 


2572 


005204 


010005 


2573 


005206 


004767 


2574 


005212 


004767 


2575 


005216 


010013 


2576 


005220 


000167 


2577 






2578 






2579 






2580 






2581 






2582 






2583 






2584 






2585 


005224 


010046 


2586 


005226 


012700 


2587 






2588 


005232 


162716 


2589 


005236 


050116 


2590 


005240 


020240 


2591 


005242 


001410 


2592 


005244 


020027 


2593 


005250 


101370 


2594 






2595 


005252 


005720 


2596 


005254 


021002 


2597 


005256 


003006 


2598 


005260 


012716 


2599 


005264 


012600 


2600 


005266 


062700 


2601 


005272 


000207 


2602 






2603 


005274 


022626 


2604 







001650 
002130 



172340 



BLO 
BIS 

SUB 
JSR 
JSR 



JSP 
MOV 
JSR 
JSR 
MOV 
JMP 



2$ 

Rl,R4 

#200, R2 
PC, MMREG 
PCGETSIZ 



PCMAXADR 

R0,R5 

PCGETSIZ 

PCMAXADR 

R0,(R3) 

CLRMEM 



{PARI ? 

{IF SO THEN GO 2$ 

{SUBROUTINE GETSIZ LOADED Rl WITH BITS 0-12 
{OF LOWADD WHICH HAVE NOW BEEN LOADED IN R4 

{ SET MEM, MANAG, REGISTERS 

{PLACE BITS 13-17 OF HIGHEST LOCATION TO BE TESTED 
{IN BITS 6-10 OF R2, #160000 IN R0 AND BITS 0-12 
{OF LOCATION HIGHADD IN Rl 

{ GET THE ADDRESS OF MAX, MEM, UNDER TEST 

{ PREPARE TO SET UP LOCATION MAXMEM 

I GET THE MAXIMUM ADDRESS OF AVAILABLE MEMORY 

{ AND STORE INTO "MAXMEM" 

{GO TEST A 24K SLICE ABOVE 28K, 



{MAXADR - SUBROUTINE TO GET CURRENT 24K SLICE OF MEMORY ADDRESSES ABOVE 28K, 
{REGISTERS J 

{ P08 ON ENTRY* #160000 AND ON EXITsHIGHEST VIRTUAL ADDR, UNDER TEST 
{RIb LOW ORDER 12 BITS OF VIRTUAL TEST ADDRESS 
{R2s PAR BLOCK NO, CURRENTLY UNDER TEST, 



MAXADRi 


MOV 


R0,-(SP) 


{PUT MAXIMUM AVAILABLE ADDRESS ON STACK 




MOV 


#172356, R0 


{R0SPAR7 UNIBUS ADDRESS 


{ #»BEGIN LOOP 


TO FIND PAR ADDRESS UNDER TEST 


281 


SUB 


#20000, (SP) 


{DECREMENT VIRTUAL ADDRESS BY 4K 




BIS 


Ri,(SP) 


{SET BITS 1110 TO MAXIMUM VIRTUAL TEST ADDRESS 




CMP 


R2,-(R0) 


{DOES CURRENT PAR* TEST BLOCK NO,? 




BEQ 


38 


{ BRANCH IF YES 




CMP 


R0, #172340 


I ARE WE AT PAR0? 




BHI 


28 


{NO KEEP TRYING 


{ ##END 


LOOP TO 


FIND PAR ADDRESS 


UNDER TEST 




TST 


(R0) + 


{SET TO PAR CURRENT 




CMP 


(R0),R2 | IS THE 


PAR BLOCK UNDER TEST GTR THAN ALLOWED? 




BGT 


4$ 


{BRANCH IF YES (FALL INTO ENDPAS) 




MOV 


#157776, (SP) 


{EXIT WITH MAXADR* 28K SEGMENT TEST SIEE 


351 


MOV 


(SP)+,R0 


{SET R0 TO MAXIMUM VIRTUAL TEST ADDRESS 




ADD 


#2,R0 


{MAKE MAXIMUM MEMORY+2 




RTS 


PC 


{AND EXIT MAXADR ROUTINE 


481 


CMP 


(SP) + , (SPH 


{FIXUP STACK 








{AND FALL THRU TO ENDpAS, 
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2609 
2610 
2611 
2612 
2613 
2614 
2615 
2616 
2617 
2618 
2619 
2620 
2621 
2622 
2623 
2624 
2623 
2626 
2627 
2628 
2629 
2630 
2631 
2632 
2633 
2634 
2635 
2636 
2637 
2638 
2639 
2640 
2641 
2642 
2643 
2644 
2645 
2646 
2647 
2648 
2649 
2650 
2651 
2652 
2653 
2654 
2655 
2656 
2657 



# TYPE ROUTINE FOR ERROR STACK 



THIS ROUTINE IS USED TO DETERMINE IF TYPE OUT OF THE ERROR STACK 
FOR ONLY THE FAILING BITS IS REQUIRED OR NOT 



005276 


032777 


000020 


173144 ENDPASl 


BIT 


#20, SSWR 


I ARE WE GOING TO TYPE THE ERROR STACK AND END OF PASS? 


aat "ia a 

YlvO JW* 


no l 3 










t It NOT TntiPl &U TO StOr 


mas lat 

Vv3 3vo 


01 2746 








* -1 1 " I or J 


J int. PKUwKAM HAD KbAtlibD Int. tiNu AMU E.HKUH 

J STACK AND END OF PASS WILL BE TYPED OUT 


005312 


012701 


007744 




MOV 


#ENDPRG,R1 


i PLACE THE STARTING ADDRESS OF THE ERROR STACK 


005316 




<t)W 3 10 


if* V D 4S Tif ■ 








005 322 


0052 16 






INC 


C 8P) 


, Tff ur uiur finup ftiDii tWF fniTTQr 
j ir nt nrtvc uunb lnpu int, &niah.l 


005324 


0201 37 


aaa iia 

Yfvv 3 * v 




CMp 


til , P#E«"L/04ft 


• uit nur pun nrf tub* fodOd cTirx rffn orirHcn ? 


agkK a act 


103043 






BHI S 




* THFN £10 TO t YDS" VNn nr D&fifB 


005332 


112702 


000022 




MOVB 


•18!, R2 




005336 








DECB 


R"5 i IF* ALL 


« a RTT<i OF THIS RANK HAVF REEN fHEPKED 


005 340 


002766 






BLT 


TYPSTK 


i rffn r hfpkfo fob prdad then a it it t f thfrf 

• Te my MODE AK MFMOBV RANK 


005342 


105721 






TSTB 


(Ri ) + 


«0THFBWT«!F PHFPK THE BYTE «5TOaFn AT (Vti ^ 


005344 


001774 






BEQ 


RETSTK 


I IF IT IS WE WILL NOT TYPE IT 


005 346 


02022 7 






CMp 


R2, * 16 i 


;IS THE POINTER POINTING TO ERROR STACK BYTE 

tMF&NT FOB rn?.T,ErTTM<t ADDRESS! FATTJIHF3 FOB 

} THE SPECIFIC MEMORY BANK 


005 352 


103 404 






BLO 


2 S 


sIF NOT THEN GO TO TYPE BIT NUMBER 


005 354 


101026 






BHI 


PARFL 


; if IT IS POINTING TO THE STACK LOCATION INTENDED 
ITO COLLECT PARITY FAILURES THEN GO TO PARFL 


005356 


004767 


001012 




JSR 


PC, TPADER 


^OTHERWISE TYPE "ADDRESS ERROR" 


005362 


000404 






BR 


FAILNM 




005364 


010237 


000312 


2$i 


MOV 


R2 , ©#DECWRD 


} PREPARE TO TYPE THE NUMBER OF THE FAILING BIT 
;IN DECIMAL 


005370 


004767 


001214 




JSR 


PCTYPDEC 


jGO TO TYPE THE BIT NUMBER IN DECIMAL 


005374 


011637 


000312 


FAILNMi 


MOV 


(SP),P#DECWRD 


f PREPARE TO TYPE THE PAGE NUMBER 


005400 


004767 


001210 




JSR 


PCSTPDEC 


; IN DECIMAL 


005404 


005043 






CLR 


»(R3) 




005406 


114113 






MOVB 


»(R1),(R3) 


1 PREPARE TO PRINTOUT THE NUMBER OF TIMES THIS 
; FAILURE OCCURED 


005410 


105021 






CLRB 


(RiH 


jCLEAR THE ERROR STACK 


005412 


005043 






CLR 


»(R3) 




005414 


105237 


000314 




1NCB 


P#TYPCNT 


; ENABLE THE TYPE OUT OF 1 WORDS 


005420 


004767 


001330 




JSR 


PC,RPT0CT 


t TYPE THE 4K BANK AND THE NUMBER OF TIMES 
JTHIS FAILURE WAS SEEN 


005424 


012703 


000376 




MOV 


#376, R3 


1 RESET SCRATCH STACK FOR EACH BIT PRINTED , 


005430 


000742 






BR 


RETSTK 




005432 


004767 


000762 


PARFLI 


JSR 


PCTPPRER 


; TYPE "PAR ERR" 


005436 


000756 






BR 


FAILNM 
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DZKMAB, 


PI 1 


END OF 


PASS 














2662 




















2663 




















2664 












|# END 


OF PASS 






2665 




















2666 












1* 








2667 












f * 


TYPE "END PASS" 


AND DISABLE PARITY* 




2668 












I* 


ALSO SERVICE ACT11. 




2669 












1* 


AND EVERY CONSECUTIVE PASSES UNLESS BIT 4 OF SSWREG IS 


HIGH 


2670 












1* 








2671 




















2672 




















2673 


005440 


005002 






SEOPi 


CLR 


R2 


} SET R2= PARITY MODULE DISABLE CODE 




2674 


003442 


004767 


002036 






JSR 


PC, PARITY 


jGO DISABLE PARITY MODULES IF SELECTED. 




2675 


005446 


105737 


000315 






TSTB 


MSAVKBB 


fCONTROL-C TYPED? 




2676 


005452 


001046 








BNE 


CTLC 


jBRANCH IF YES-RESTORE LOADERS AND HALT 




2677 


005454 


005237 


000406 






INC 


@#$PASS 


t INCREMENT PASS COUNT 




2678 


005460 


032777 


000040 


172762 




BIT 


I40,9SWR 


J "END PASS #XX" PRINTOUT WANTED? 




2679 


005466 


001015 








BNE 


ACT11 


jBRANCH IF NO 




2680 


005470 


004767 


001064 




TYPEOPI 


JSR 


PCTPCRLF 


I TYPE CR, LF, AND "END PASS #" 




2681 


005474 


047105 


020104 


040520 




8 ASCIZ 


/END PASS #/ 








005502 


051523 


021440 


000 












2682 




005510 








.EVEN 








2683 


005510 


013737 


000406 


000312 




MOV 


9*SPASS,0#DECWRC 


f GET PASS COUNT 




2684 


005516 


004767 


001072 






JSR 


PC,$TPDEC 


f TYPE IT 




2685 


005522 


013700 


000042 




ACTUS 


MOV 


»#42,R0 


?GET THE MONITOR ADDRESS 




2686 


005526 


001405 








BEQ 


SDOAGN 


I IF NONE 




2687 


003530 


004767 


000012 






JSR 


PC, RLODER 


j RESTORE XXDP MONITOR 




2688 


005534 


000005 








RESET 


f RETURN 


TO ACTU MONITOR, 




2689 




















2690 




















2691 










l# SERVICE XXDP/ACTU 






2692 


005S36 


000137 


0001S6 






JMP 


MSENDAD 


jJUMP TO ACT SERVICE 




2693 




















3694 


005542 


000137 


0002S0 




SDOAGNj 


JMp 


SfRESTRT 


; REPEAT TEST IF NOT UNDER ACT11/XXDP 




2695 




















2696 


003546 


004767 


001632 




RLODERl 


JSR 


PC,CLRMM 


ISTOP MEMORY MANAGEMENT SO CAN RESTORE 


LOADERS 


2697 


005552 


013704 


000344 






MOV 


£#SAVR4,R4 


t RESTORE R4 WITH SAVR4 




2698 


005556 


01444S 






4$| 


MOV 


»(R4),-(R5) 


? RESTORE LOADERS 




2699 


003360 


020437 


000310 






CMP 


R4, MENDSTK 






2700 


005364 


101374 








BHI 


4$ 






2701 


00S366 


000207 








RTS 


PC 


I RETURN FROM RLODER CALL 




2702 




















2703 










jCONTROL C HANDLER 






2704 




















2705 


005370 


004767 


177752 




CTLCl 


JSR 


PC, RLODER 


; RESTORE ABS LOADER 




2706 


005574 


000167 


000402 






JMp 


APTHLT 


;IF NOT APT HALT AT FATHLT 




2707 




















2708 
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SCQ 0060 



2713 








2714 








271S 








2716 








2717 








2718 








2719 








2720 


005600 


017637 


000000 


2721 


005606 


010346 




2722 


005610 


010046 




2723 








2724 








2725 








2726 


005612 


010103 




2727 


005614 


004767 


001604 


2728 


005620 


01 3703 


000312 


2729 


005624 


1 10337 


000403 


2730 








2731 








2732 








2733 


005630 


010346 




2734 


005632 


01 2703 


000376 


273S 


005636 


013743 


000306 


2736 


005642 


005043 




2737 


005644 


113713 


000402 


2738 


005650 


016643 


000006 


2739 


005654 


011143 




2740 


005656 


010043 




2741 


005660 


005043 




2742 


005662 


016313 


000004 


2743 


005666 


04001 3 




2744 


005670 


046300 


000004 


2745 


005674 


05001 3 




2746 


005676 


01 2700 


002016 


2747 


005702 


060700 




2748 


005704 


062700 


000022 


2749 


005710 


005316 




2750 


005712 


002374 




2751 


005714 


005726 




2752 








2753 


005716 


1 05037 


000277 


2754 


005722 


105737 


000300 


2755 


005726 


001007 




2756 


005730 


1 05720 




2757 


005732 


105737 


000301 


2758 


005736 


001003 




2759 


005740 


105720 




2760 


005742 


005713 




2761 


005744 


100015 




2762 


005746 


122710 


000377 


2763 


005752 


001401 




2764 


005754 


105210 




2765 


005756 


122710 


000001 


2766 


005762 


001404 




2767 


005764 


032777 


000400 


2768 


005772 


001002 





# ERROR HANDLING ROUTINE 



ERROR! 
III 



MOV 
MOV 
MOV 



PROGRAM COMES HERE EACH TIME AN ERROR IS ENCOUNTERED THIS 
ROUTINE TYPES OUT THE ERROR MESSAGE IN THE FORMAT GIVEN EARLIER 



P(SP),8#8FATAL { LOAD THE LOCATION (FATAL WITH THE ERROR NUMBER 

R3,-(SP) {SAVE R3 

R0,-(SP) { AND P0 ON THE STACK 



{SETUP BANK NO. IN FATAL FOR APT 



400 172456 



MOV 
JSP 
MOV 
MOVB 



MOV 
MOV 
MOV 

28! CLP 
MOVB 
MOV 
MOV 
MOV 
CLP 
MOV 
BIC 
BIC 
BIS 
MOV 
ADD 

63! ADD 
DEC 
BGE 
TST 

ERRTYPl CLRB 
IS! TSTB 
BNE 
TSTB 
TSTB 
BNE 
TSTB 
28! TST 
BPL 

381 CMPB 
BEQ 
INCB 

5$! CMPB 
BEQ 
BIT 
BNE 



fil,R3 
PCGETBNK 
MPBNK,R3 
R3» M8FATAL+1 



R3,»(SP) 
#376, R3 

MPASFLG,-(R3) 

<-(R3) 

M8FATAL, (R3) 

6(SP),-(R3) 

(R1),-(R3) 

R0,-(R3) 

«(R3) 

4(R3),(R3) 
R0, (R3) 
4(R3),P0 
R0,(R3) 

#ENDPRG»,-"24 a ,R 

PC,R0 

#18.,R0 

(SP) 

6$ 

(SP)* 

g#TYPENB 
P#8PR£RR 
3$ 

(R0) + 

g#SADERR 

3$ 

(R0)* 

(R3) 

4$ 

#377, (R0) 
5$ 

(R0) 
tl, (R0) 
7$ 

#400,9SWR 
43 



j GET VIRTUAL ADDRESS UNDER TEST FOR GETBNK 

! GET BANK NO. UNDER TEST INTO PBNK 

| GET BANK UNDER TEST 

{ STORE FAILING BANK NO, FOR APT 



j TEMPORARILY STORE R3 

I MAKE R3 AS THE STACK POINTER 

; OUTPUT THE WORD STORED AT 

{PUT ERROR NO, ON ERROR STACK 
{PLACE THE RETURN PC AT (R3) 
{ PLACE BAD DATA, 
{ AND GOOD DATA ON THE STACK 

; TAKE THE 

{EXCLUSIVE OR OF GOOD AND BAD DATA 
{TO FIND THE BITS THAT FAILED 
{ AND PLACE IT ON THE STACK 
({THIS CODE BRINGS THE RELATIVE ADDRESS 
{OF THE STARTING OF THE ERROR STACK 
{FOR THE SPECIFIC 4K BANK 



; RESTORE THE STACK POINTER 

{DISABLE ANY TYPE OUT 

{IF THIS IS PARITY PROBLEM 

f THEN GO TO 38 

{OTHERWISE INCREMENT THE ERROR STACK POINTER BY 1 
;IF THIS IS ADDRESSING PROBLEM 
{ THEN GO TO 38 

; INCREMENT THE POINTER R0 BY 1 
{IS BIT 15 0F (R3) SET? 
» IF NOT THEN GO TO 48 

{OTHERWISE SEE IF THIS ERROR HAS OCCURED 377 TIMES 

;IF SO DON'T BUMp ERROR COUNT 

{INCREMENT THE ERROR COUNTER BY I 

{ MORE THAN 1 ERROR OCCURRED ON THIS BIT? 

{BRANCH IF NO 

{STOP ERROR PRINTOUT AFTER 1 WANTED? 
{ BRANCH IF YES (DON'T TYPE ERROR) 
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2769 


005774 


105237 


000277 


2770 


006000 


105737 


000300 


2771 


006004 


001411 




2772 


006006 


004767 


000406 


2773 


006012 


000411 




2774 


006014 


105737 


000301 


2775 


006020 


001403 




2776 


006022 


004767 


000346 


2777 


006026 


000403 




2778 


006030 


105720 




2779 


006032 


006313 




2780 


006034 


001342 




2781 


006036 


112737 


000006 


2782 








2783 


006044 


004767 


001 150 


2784 








2785 


006050 


004767 


000622 


2786 








2787 


006054 


005037 


000300 


2788 


006060 


012600 




2789 


006062 


012603 




2790 


006064 


105737 


000420 


2791 


006070 


001404 




2792 


006072 


012737 


000001 


2793 


006100 


000443 




2794 








2795 


006102 


010246 




2796 


006104 


005777 


172340 


2797 








2798 


0061 10 


100405 




2799 








2800 








2801 


006112 


004767 


001546 


2802 








2803 


006116 


105737 


000042 


2804 


006122 


001401 




2805 








2806 


006124 


000000 




2807 








2808 








2809 


006126 


012602 




2810 


006130 


062716 


000002 


2811 


006134 


000207 




2812 








2813 








2814 








2815 


006136 






2816 


006136 


004767 


000416 


2817 


006142 


051105 


047522 




006150 


000043 




2818 








2819 








2820 


006152 


017637 


000000 


2821 


006160 


105237 


000314 


2832 


006164 


012703 


000376 


2823 


006170 


013743 


000402 



020122 



PAGE 


23-10 






781 


INCB 


PUTYPENB 


{ ENABLE THE TYPE OUT ROUTINE 


48! 


TSTB 


@#SPRERR 


{PARITY ERROR? 




BEQ 


6$ 


{BRANCH IF NO 




JSR 


PCTPPRER 


{ELSE TYPE "PAR ERR" 




BR 


88 


{AND DON'T TEST INDIVIDUAL BIT FAILURES, 




TSTB 


@# 8 ADERR 


{ADDRESS ERROR? 




BEQ 


68 


{BRANCH IF NO 




JSR 


PC, TPADERR 


{PRINT "ADR ERR" 




BR 


88 




68! 


TSTB 


(R0) + 


{ POINT TO NEXT ENTRY IN ERROR STACK 




ASL 


(R3) 


{IS THERE STILL AN ERROR BIT SET IN ERROR, 




BNE 


28 


{BR IF YES - KEEP FILLING ERROR STACK 


85: 


MOVB 


#6,9#TYPCNT 


{ TELL TYPOCT TO TYPE 6 WORDS OF ERROR STACK, 








{THE STACK POINTED BY R3 




JSR 


PCPUTADR 


{GO TO THE SUBROUTINE TO PLACE THE ADDRESS IN Rl 








{AT LOCATIONS (R3) AND (R3-2) 




JSR 


PC, TYPERR 


{TYPE ERROR STACK (7 WORDS) 


101! 


CLR 


M8PRERR 


{CLEAR ADDRESS/PARITY ERROR FLAGS 




MOV 


(SPH,R0 


{RESTORE R0 




MOV 


(SPH,R3 


{AND R3 


FNDERRi 


TSTB 


M8ENV 


{ARE WE RUNNING UNDER APT? 




BEQ 


28 


{IF NOT THEN TEST FOR HALT 




MOV 


#1,M8MSGTY 


{OTHERWISE INFORM THE APT 




BR 


FATHLT 


{GOTO FATHLT AND WAIT FOR APT, 


28! 


MOV 


R2,»(SP) 


{SAVE R2 TEMP 




TST 


8SWR 


{DOES THE OPERATOR REQUIRE THE PROGRAM TO HALT 








{ON ERROR 




BMI 


48 


{IF SO THEN HALT ON ERROR 


{CHECK 


FOR CONTROL-C KEY 






JSR 


PCCHECKC 


{IF CONTROL-C TYPED THEN PRINT ERROR HISTORY 








{AND HALT AT FATHLT, 


78! 


TSTB 


f#42 


{ARE WE RUNNING UNDER ACT? 




BEQ 


68 


{BRANCH IF NO 


48! 


HALT 




{PROGRAM HAS HALTED ON ERROR, Rl IS POINTING 








{TO A LOCATION WHICH SHOULD HAVE CONTAINED 








{THE WORD STORED IN R0 


68! 


MOV 


(SP)+,R2 


{RESTORE R2 




ADD 


#2,(SP) 


{RESTORE THE RETURN ADDRESS 




RTS 


PC 


{RETURN FROM THE SUBROUTINE 


FATERRl 








SEQERR! 


JSR 


PCTPCRLF 


{TYPE "ERROR #" 




.ASCIZ 


/ERROR •/ 






.EVEN 








MOV 


»(SP),M8FATAL 


{LOAD THE LOCATION IFATAL WITH THE ERROR NUMBER 




INCB 


MTYPCNT 


{TELL 8TPNUM TO TYPE 1 WORD 




MOV 


#376, R3 


{ 8TPNUM USES R3 AS STACK 




MOV 


M8FATAL,«(R3) 


{ PUT ERROR NO. ON STACK 
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5EQ 0062 



2624 
2825 
2826 
2827 
2828 
2829 
2830 
2831 
2832 
2833 
2834 
2835 
2836 
2837 
2838 
2839 
2840 
2841 
2842 
2843 
2844 
2845 
2846 
2847 
2848 
2849 
2850 
2851 
2852 
2853 
2854 
2855 
2856 
2857 
2858 
2859 
2860 
2861 
2862 
2863 
2864 
2865 
2866 
2867 
2868 
2869 
2870 
2871 
2872 
2873 
(13 
(1) 
2874 
2875 
2876 
2877 



006174 
006176 
006202 
006206 
006210 
006212 



005743 
004767 
105737 
001326 



000562 
000420 



000137 000250 



TST 
JSR 

APIHLTl TSTB 
BNE 

FATHLTl HALT 
JMp 



•PAREPR 



-(R3) 1 ITPNUM REQUIRES THIS 

PC,FATYP j TYPE ERROR NO. 

§#$ENV f RUNNING UNDER APT? 
FNDERR iBRANCH IF YES 

j FATAL ERROR OR "C HALT . 
MRESTRT | RESTART TST BUT DON'T CLEAR PASS COUNT 

JIN CASE *C RESTART. 



I PARITY TRAP HANDLER 

jCOME HERE FROM A TRAP TO 114. 

j THIS ROUTINE SEARCHES THE AVAILABLE PARITY MODULES AND 

fHAS A PARITY ERROR BIT SET THE GET THE PARITY ERROR ADDRESS 
} AND CALL THE "ERROR" ROUTINE TO PRINT ERROR MESSAGE, 
j IF NO PARITY ERROR BITS CAN BE FOUND A FATAL ERROR Is DONE. 



j REGISTER US AGE. 

jR0a HOLDS PARITY MODULE ADDRESSES 
jRi* GETS ERROR ADDRESS FOR "ERROR" 



CALL, 



006216 


012637 


000356 


PAPERPi 


MOV 


CSP) + , f»#PAPSP 


*SET PARSP TO RETURN ADDRESS 


006222 


011637 


000360 




MOV 


(SP),9#PARPS 


f SAVE PSW FOR RETURN 


006226 


013706 


000350 




MOV 


MSAVR6,SP 


j AND RESET THE SP SINCE NOT ENOUGH STACK ROOM 














JTO COMPLETE THE ERROR SERVICE ROUTINE, 


006232 


010067 


000132 




MOV 


R0,SAVP0 


iSAVE R0 DURING PARITY SERVICE 


006236 


010167 


000130 




MOV 


Ri # SAVR1 


jSAVE Rl DURING PARITY SERVICE 


006242 


013701 


000352 




MOV 


g#PARMAP,Rl 


j GET PARITY AVAILABLE MAP 


006246 


012700 


172100 




MOV 


#1721001 R0 


*R0s FIRST PARITY ADDRESS , 


006252 


005701 






TST 


Rl 


j ANY PARITY MODULES AVAILABLE? 


006254 


001442 






BEQ 


4$ 


j BR IF NO -FATAL ERROp- 


006256 


000241 






CLC 






006260 


006001 




ISt 


ROR 


Rl 


jSHIFT PARITY MAP BIT INTO C BIT, 


006262 


103005 






BCC 


28 


S BRANCH IF THIS PARITY MODULE NOT AVAILABLE, 


006264 


005710 






TST 


(R0) 


; PARITY MODULE ERROR BIT SET? 


006266 


100406 






BMI 


3$ 


t BRANCH IF YES -CALL "ERROR" ROUTINE 


006270 


020027 


172136 




CMp 


R0, #172136 


j DONE ALL PARITY MODULES? 


006274 


002032 






BGE 


43 


jBR IF YES- GO TO FATAL ERROR CALL- 


006276 


062700 


000002 


231 


ADD 


#2,R0 | POINT 


TO NEXT PARITY ADDRESS 


006302 


000766 






BR 


1$ 


j and keep trying 


006304 


042710 


100000 


3S: 


BIC 


#100000, (R0) 


j CLEAR PARITY ERROR BIT. 


006310 


011001 






MOV 


(R0),P1 


jGET PARITY MODULE CSR 


006312 


006101 






ROL 


Rl 


;SHIFT ERROR ADDRESS BITS 11-5 INTO 15-9 


006314 


006101 






POL 


Rl 




006316 


006101 






ROL 


Rl 




006320 


006101 






ROL 


Rl 




006322 


042701 


000777 




BIC 


#777, Rl »SAVE 


ERROR ADDRESS ONLY 


006326 


105237 


000300 




INCB 


P#$PRERR 


t TELL "ERROR" PARITY ERROR CALL. 


006332 


004767 


177242 




JSR 


PC, ERROR 


j*EPROR* REPORT ERROR MESSAGE 


006336 


000050 






50 




;**»«#«ERROR NUMBER 50#**##» 


006340 


016700 


000024 




MOV 


SAVR0,R0 


j RESTORE R0 


006344 


016701 


000022 




MOV 


SAVR1,R1 


^RESTORE Rl 


006350 


013746 


000360 




MOV 


8»PARPS,-(SP) 


jSET RETURN PSW ON STACK 


006354 


013746 


000356 




MOV 


9#PARSP,»CSP) 


J AND SET RETURN ADDRESS ON STACK 
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DEKMAB, 


,Pi 1 


ERROR 1 


HANDLING 


2878 


006360 


000002 




2879 








2880 








2881 


006362 






(1) 


006362 


004767 


177550 


(1) 


006366 


000051 




(1) 








28B2 








2883 








2884 








2885 


006370 


000000 




2886 


006372 


000000 




2887 








2888 








2889 


006374 


105737 


000277 


2890 


006400 


001406 




2891 


006402 


004767 


000160 


2892 


006406 


042101 


020122 




006414 


000122 




2893 








2894 


006416 


000207 




2895 








2896 


006420 


105737 


000277 


2897 


006424 


001406 




2898 


006426 


004767 


000134 


2899 


006432 


040520 


020122 




006440 


000122 




2900 








2901 


006442 


000207 





13143 PAGE 23-12 

:ine 

RTI 



; RETURN TO TEST WHERE PARITY TRAP OCCURRED, 



;COME HERE IF NO PARITY ERROR FLAG FOUND SET 
4$I 

JSP PC , FATERR j*ERROR* REPORT ERROR MESSAGE AND HALT AT FATHLT 

51 ;*#*#**EPROP NUMBER 5l*###«» 

IP0+R1 ARE SAVED HERE FOR PARITY TRAP DUE TO INSUFFICIENT 
jSTACK SPACE BETWEEN 500-450. 



SAVR0 I 
SAVRU 



TPADERi TSTB 
BEQ 
JSR 
.ASCIZ 

.EVEN 
1$! RTS 

TPPRERj TSTB 
BEQ 
JSR 
.ASCIZ 



fSAVE R0 DURING PARITY TRAP SERVICE 
jSAVE Rl DURING PARITY TRAP SERVICE 



PITYPENB 
1$ 

PC,PNTMES 
/ADR ERR/ 



PC 

PftTYPENB 
1$ 

PCPNTMES 
/PAR ERR/ 



j TYPE ERROR? 
I BRANCH IF NO 

; TYPE CR, LF AND " ADR ER" 



| ERROR PRINTOUTS ALLOWED? 
jBRANCH IF NO 

;GO TO TYPE CR# LF AND "PAR ERR" 



.EVEN 
RTS 
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2906 
2907 


















2908 












J* TYPE 


OUT ROUTINE 




2909 


















2910 












!» 






2911 












I* 


THIS ROUTINE IS 


USED BY THE PROGRAM TO TYPE OUT ANY CHARACTER 


2912 
291 3 












I* 






2914 


006444 


010146 






NOTYPl 


MOV 


R1#-(SP) 




2915 


006446 


016601 


000002 






MOV 


2(SP),R1 




2916 


006452 


105721 






481 


TSTB 


(Ri) + 


;IF THIS TYPE OUT HAS BEEN SUPRESSED THEN 


2917 


006454 


001376 








BNE 


4$ 


t PREPARE TO RETURN 


2918 


006456 


000412 








BR 


PETTYP 




2919 


006460 


010146 






STYPEi 


MOV 


R1,»(SP) 


j SAVE Rl 


2920 


006462 


010046 








MOV 


R0,«(SP) 


; AND R0 ON THE STACK 


2921 


006464 


016601 


000004 






MOV 


4(SP)#R1 


; PLACE THE ADDRESS OF MESSAGE TO BE TYPED IN Rl 


2922 


006470 


112100 






2Si 


MOVB 


(R1)+,R0 


jPLACE THE BYTE TO BE TYPED IN R0 


2923 


006472 


001403 








BEQ 


4$ 


jlF IT IS END OF MESSAGE THEN GO TO 4$ 


2924 


006474 


004767 


000022 






JSR 


PCSTPCHR 


^OTHERWISE GO TO TYPE THE CONTENTS OF R0 


2925 


006500 


000773 








BR 


2$ 




2926 


006502 


012600 






4$i 


MOV 


(SP)*,R0 


; RESTORE R0 


2927 


006504 


005201 






RETTYPI 


INC 


Rl 


fCAUSE Rl TO 


2928 


006506 


042701 


000001 






BIC 


#1#R1 


fPOINT TO EVEN ADDRESS 


2929 


006512 


010166 


000002 






MOV 


R1,2(SP) 


J MODIFY THE RETURN ADDRESS 


2930 


006516 


012601 








MOV 


(SP)+,P1 


; RESTORE Rl 


2931 


006520 


000416 








BR 


EXTYP 


t AND RETURN VIA RTS PC 


2932 


















2933 


006522 


132737 


000040 


000421 


STPCHRi 


BITB 


#40#§#$ENVM 


j HAVE TYPE OUTS BEEN DISABLED? 


2934 


006530 


001005 








BNE 


4$ 


; IF SO THEN RETURN FROM THE SUBROUTINE 


2935 


006532 


105737 


177564 




28 t 


TSTB 


MSTPS 


;WAIT HERE 


2936 


006536 


100375 








BPL 


2$ 


jUNTIL THE PRINTER IS READY 


2937 


006540 


1 10037 


1 77566 






MOVB 


R0,9#STPB 


I LOAD DATA TO BE TYPED INTO DATA REG, 


2938 


006544 


000404 






4$l 


BR 


EXTYP 


1 RETURN 


2939 


















2940 


006546 


004767 


177706 




PCRLFl 


JSR 


PCSTYPE 




294 1 




00501 5 








, ASCIZ 


< 15><1 2> 


} CR/LF 


2942 




006556 








.EVEN 






2943 


006556 


000207 






EXTYPJ 


HTS 


PC | RETURN 




2944 


















2945 


006560 


004767 


177762 




TPCRLFi 


JSR 


PCPCRiiF 


5 TYPE CR/LF 


2946 


006564 


000735 








BR 


STYPE 


JNOW GO TO TYPE THE REST OF THE MESSAGE 


2947 


















2948 


















2949 


006566 


032777 


000020 


171654 


PNTMES! 


BIT 


# 20 # PSWR 


^PRINTOUTS ALLOWED? 


2950 


006574 


001323 








BNE 


NOTYP 


jBRANCH IF NO 


2951 


006576 


123737 


000042 


000046 




CMPB 


i#42# 9#46 


j RUNNING UNDER ACT U? 


2952 


006604 


001717 








BEQ 


NOTYP 


•BRANCH IF YES -NOT PRlNTOUT- 


2953 


006606 


000764 








BR 


TPCRLF 


1 SEND CR/LF AND TYPE MESSAGE , 



ZKMA 


MACYll 


27(732) 


05-AUG- 


76 13143 PAGE 


23-14 






ZKMAB, 


PI 1 


ROUTINE 


TO TYPE 


OUT A DECIMAL NUMBER 






2958 
















2959 










I* ROUTINE TO TYPE OUT 


A DECIMAL NUMBER 


2960 
















2961 










1 * 






2962 










I * 


THIS ROUTINE IS 


USED TO CONVERT THE CONTENTS OF LOCATION 


2963 










1 * 


DECWRD TO DECIMAL NUMBERS AND TYPE THEN FOLLOWING 3 SPACES 


2964 










I * 






2965 
















2966 


006610 


004767 


177732 


TYPDEC I 


JSR 


PCPCRLF 


1 TYPE CR/LF 


2967 
















2968 


006614 


005046 




STPDECl 


CLR 


•(SP) 




2969 


006616 


013746 


000312 




MOV 


9»DECWRD,-(SP) 


|GET THE WORD THAT HAS TO BE CONVERTED TO A 


2970 














;DECIMAL NUMBER 


2971 


006622 


162716 


000012 


25: 


SUB 


#10»# (SP) 




2972 


006626 


002403 






BLT 


4$ 


jIF THE NUMBER IN (SP) WAS LESS THAN 10, THEN 


2973 














;GO TO 4$ 


2974 


006630 


005266 


000002 




INC 


2CSP) 


^OTHERWISE ADD 1 TO THE LOCATION STORING 10'S 


2975 


006634 


000772 






BR 


2$ 


; AND RETURN TO 2$ 


2976 


006636 


062716 


000012 


4$l 


ADD 


#10.i (SP) 




2977 


006642 


052716 


000060 




BIS 


#60, (SP) 


1 MAKE THE CONTENTS OF (SP) A DECIMAL NUMBER 


2978 


006646 


112667 


000020 




MOVB 


(SP)*,6$-2 


jPLACE THE 1'S DIGIT TO BE TYPED 


2979 


006652 


052716 


000060 




BIS 


#60# (SP) 


; MAKE THE CONTENTS OF (SP) A DECIMAL NUMBER 


2980 


006656 


112667 


000007 




MOVB 


(SP)+,6$«3 


} PLACE THE 10»5 DIGIT TO BE TYPED 


2981 


006662 


004767 


177572 




JSR 


PCITYPE 


|GO TO TYPE THE NUMBER IN DECIMAL FOLLOWED BY 


2982 














j3 SPACES 


2983 


006666 


020040 


030040 


000060 


.ASCIZ 


/ 00/ 




2984 










.EVEN 






2985 


006674 


000207 




6 S 1 


RTS 


PC 


J RETURN FROM THE SUBROUTINE 



DERMA M&CY1 I 27(732) 0§«AUG®76 13143 PAGE 23«1S 
DZKMAB.Pl 1 OCTAL TYPE OUT POUTINE 



3EQ 0066 



299@ 

2993 
3993 
2994 
2995 
2996 
2997 
2998 
2999 
3000 
3001 
3002 
3003 
3004 
3005 
3006 
3007 
300S 
3009 
3010 
3011 
3012 
3013 
3014 
3015 
3016 
3017 
3018 
3019 
3020 
3021 
3022 
3023 
3024 
3025 
3026 
3027 
3028 
3029 
3030 
3031 
3032 
3033 
3034 
3035 
3036 
3037 
3038 
3039 
3040 
3041 
3042 



006676 
006704 
006706 
006712 
006716 
006720 

006722 

006724 
006730 
006734 
006736 
006740 
006742 
006744 
006746 
006750 
006752 
006754 
006760 

006764 
006766 
006772 
006774 
006776 
007000 
007004 
007010 
007012 
007014 
007016 
007020 
007022 
007026 
007030 
007034 
007036 



032777 

001054 
004767 
004767 
000447 
012123 

012113 
105237 

052743 
106113 
103376 

005000 
106113 

006100 
106113 
006100 
000405 
004767 
020040 

003000 
012723 
000241 
006113 
006100 
052700 
004767 
005000 
006113 
006100 
006113 
006100 
105363 
001361 
105337 
001347 
000207 



* OCTAL TYPE OUT ROUTINE 



020000 171544 



177634 

000012 



000314 

>4 



177500 

000040 



000060 
177512 





1* 
! * 


THIS ROUTINE IS 


USED TO TYPE OUT THE OCTAL VALUES 




I * 


CONTROL SHOULD 


COME TO THIS ROUTINE WITH R3 POINTING TO 




1 * 


THE LOW ORDER BITS (I.E. BITS 0*15) OF THE ADDRESS TO 




1 & 


BE TYPED WHERE 


AS R3-2 SHOULD CONTAIN THE HIGH ORDER BITS 




i* 


(I.E. BITS 16 & 


17), CONTENTS OF LOCATION R3-i AND R0 ARE 




i & 


DESTROYED BY THIS SUBROUTINE 




» * 


BYTE TYPCNT SHOULD BE SET TO THE NUMBER OF WORDS THAT HAVE 




t * 


TO BE TYPED, 




TYPERRl 


BIT 


1 20000 » flSWR 


{Error printout wanted? 




BNE 


OCTXT 


{BRANCH IF NO 




JSR 


PC, PCRLF 


{TYPE CR/LF 




JSP 


Pw , T XPUfc T 


{ TXrt Ov. TAb NO , 




BP 


OCTXT 


. DC1M1DM UTt DVI ThF 

{KC.TURN VIA RIB PC 


OCTTYPl 


MOV 


{Hi IH3 J* 


{ PLACE THIS HIGH ORDER B I T5 AT LOCATION POINTS' U 








{ BY R3 




MOV 


<BI fx /Oil 


{ ANU Nun ruH b X F1E< uUW UKUbr D11B 




INCB 


if TlPCNT 


| bNAoub T<1c< T I PL OUT Or One. UCTALi HURD 


TYPOCTl 


BIS 


# 4 , • ( R3 ) 




2 $ i 


POLB 


( R3 ) 






BCC 


28 






CLP 








ROLB 


(R3) 


{GET BITS 17 & 16 INTO R0 




ROL 


R0 






ROLB 


(R3) 






ROL 


R0 






BR 


ITPNUM 




PPTOCTj 


JSR 


PCSTYPE 


j TYPE 3 SPACES 




,ASCIZ 


/ / 






.EVEN 






FATYPl 


CLR 


R0 




STPNUMi 


MOV 


#6, CR3H 


{ ENABLE THE TYPE OUT OF 6 OCTAL DIGITS 


43: 


CLC 








ROL 


(P3) 






ROL 


R0 


1 PLACE THE CARRY FROM (R3) IN R0 




BIS 


#60, R0 


{OR THE CONTENTS OF R0 WITH AN ASCII 




JSR 


PCSTPCHR 


{ TYPE THE OCTAL NUMBER STORED IN R0 




CLR 


P0 






ROL 


(R3) 






ROL 


R0 


{ PLACE THE CARRY FROM (R3) IN R0 




POL 


(R3) 






ROL 


R0 


{ PLACE THE CARRY FROM (R3) IN R0 




DECB 


-2CR3) 


{IF WE HAVEN'T TYPED THE 6 OCTAL DIGITS 




BNE 


4$ 


{ THEN REPEAT FROM 4S 




DECB 


MTYPCNT 


{IF ALL THE WORDS REQUIRED HAVE NOT BEEN 




BNE 


RPTOCT 


{ TYPED THEN REPEAT FROM RPTOCT 


OCTXTJ 


PTS 


PC 
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3047 








3048 








3049 








3050 








3051 








3052 








3053 








3054 








3055 








3056 


007040 


012702 


001400 


3057 


007044 


105037 


000276 


3058 








3059 


007050 


032777 


010000 


3060 


007056 


001441 




3061 


007060 


012700 


000004 


3062 


007064 


012720 


007164 


3063 


007070 


012710 


000340 


3064 


007074 


005037 


177572 


3065 


007100 


105237 


000276 


3066 








3067 


007104 


012701 


172340 


3068 


0071 10 


005021 




3069 


007112 


062702 


000200 


3070 


007116 


010221 




3071 


007120 


020127 


172356 


3072 


007124 


103772 




3073 


007126 


012711 


007600 


3074 


007132 


012701 


172300 


3075 


007136 


012721 


077406 


3076 


007142 


020127 


172316 


3077 


007146 


101773 




3078 


007150 


005237 


177572 


3079 


007154 


005010 




3080 


007156 


012740 


000104 


3081 


007162 


000207 




3082 








3083 


007164 


022626 




3084 


007166 


004767 


177366 


3085 


007172 


047516 


046440 




007200 


000 




3086 




007202 




3087 


007202 


004767 


176730 


CI) 


007206 


000052 




(1) 








3088 


007210 


000761 




3089 
3090 


007212 


013702 


172354 


3091 


007216 


000712 





{« ROUTINE TO SET UP MEMORY MANAGEMENT REGISTERS 



MEMMNGj 
MMREGI 



1* 




I* 


PROGRAM CONT 


!* 


IS AVAILABLE 


!* 
1* 


THE MEMORY A 


MOV 


#1400, R2 


CLRB 


MMMAVA 


BIT 


#10000, 9SWR 


BEQ 


RETMM 


MOV 


#4,R0 


MOV 


#N0MM, CR0H 


MOV 


#340, (R0) 


CLR 


9#SR0 


INCB 


IMMAVA 


MOV 


#172340, Rl 


CLR 


CR1H 


ADD 


#200, R2 


MOV 


R2, CR1H 


CMP 


Rl, #172356 


BLO 


2$ 


MOV 


#7600, (Rl) 


MOV 


#172300, Rl 


MOV 


#77406, (Rl )* 


CMP 


Rl, #172316 


BLOS 


4$ 


INC 


9#SR0 


CLR 


(R0) 


MOV 


#BUSER,-(R0) 


RTS 


PC 


CMP 


(SP) + ,(SPH 


JSR 


PCTPCRLF 


.ASCIZ 


/NO MNG/ 


.EVEN 




JSR 


PC#FATERR 


52 




BR 


J RETMM 


MOV 


§#172354, R2 


BR 


MMREG 



AND IF IT IS AVAILABLE THEN WHETHER 



{CLEAR THE BYTE THAT IS SUPPOSED TO INDICATE 

{THAT MEM, MANAG, IS AVAILABLE FOR TESTING 

{HAS THE OPERATOR ASKED TO CHECK MEMORY MANAG, ? 

{IF NOT THEN RETURN FpOM THE SUBROUTINE 

{ PREPARE TO SETUP TIME OUT VECTOR 

{RETURN ADDRESS TO NOMM 

{AND WITH A PSW OF 340 

{TRY TO REACH MEM, MANAG, SR0 

{IF IT IS AVAILABLE THEN SET MEM, MANAG, AVAILABLE 
{BYTE 

{Rl IS POINTING TO PAR0 
{PAR0 WILL POINT TO BANK 

{ SETUP PAR1-PAR6 

{PAR7 IS POINTING TO THE I/O PAGE 
{ SETUP PDR0-PDR7 



{ENABLE MEM, MANAG, 

{RESTORE TIME OUT TRAp VECTOR FOR ANY FUTURE TRAP 



{RESTORE STACK POINTER 

{TYPE "NO MEMORY MANAGEMENT MESSAGE 



{#ERROR* REPORT ERROR MESSAGE AND HALT AT FATHLT 
{«*»«**ERR0R NUMBER 52****** 



{ RESTORE TIME OUT TRAP VECTOR 

{PREPARE TO UPDATE MEMORY MANAG, REGISTERS 
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3EQ 006B 



3096 














3097 








»» 18 


BIT ADDRESS GENERATOR 


3098 














3099 
3100 








I* 
I * 


THIS SUBROUTINE 


IS USED TO PLACE THE ADDRESS STORED IN Rl 


3101 








|# 


IN THE LOCATION 


POINTED BY R3, THE ADDRESS IN Rl IS CONVERTED 


3102 








1* 


TO AN 18 BIT ADDRESS ONLY IF MEM. MANAG, IS AVILABLE IN WHICH 


3103 








!» 


CASE THE HIGH ORDER BITS OF THE ADDRESS ARE PLACED IN LOCATION 


3104 








># 


POINTED BY R3*2 




3105 








1 * 






3 106 
3107 


007220 


005063 177776 


PUTADRj 


CLR 


»2(R3) 




3108 


007224 


0101 13 




MOV 


PI » ( R3 ) 


I PLACE THE ADDRESS STORED IN Rl IN LOCATION ( R3 ) 


3109 


007226 


105737 000276 




TSTB 


JMMMAVA 


|IS THE MEM, MANAG, AVAILABLE ? 


3110 


007232 


001425 




BEQ 


6 8 


, Tr MAnt frUFU DCTllDM E*nftM TUB" tllBDnilTTUI' 

fir NUT Tnfc» K& I URN r RUM THE. SUoKwUi INb 


3111 


007234 


010146 




MOV 


Rl,«(SP) 


I SAVE Rl 


3112 


007236 


042701 017777 




BIC 


»17777,R1 


fCLEAR BITS 0-12 OF THE ADDRESS IN Rl 


3113 


007242 


040113 




BIC 


Rl , (R3) 


j LEAVE BITS 0-12 OF THE ADDRESS IN (R3) 


3114 


007244 


052701 004000 




BIS 


#4000, Rl 


j PREPARE TO SHIFT Rl BY 12 PLACES 


3115 


007250 


006001 


2Si 


ROR 


Rl 




3116 


007252 


103376 




BCC 


28 


; GET THE NUMBER OF PAR IN Rl 


3117 


007254 


062701 172340 




ADD 


1172340, Rl 


J GET THE ADDRESS OF PAR IN Rl 


3118 


VmJ 9 £Ov 


01 1101 




MOV 


(R1),R1 


{LOAD Rl WITH THE CONTENTS OF PAR 


3119 


007262 


052701 010000 




BIS 


#10000, Rl 




3120 


007266 


006101 


4Ss 


ROL 


Rl 




3121 


007270 


103376 




BCC 


48 


ji PLACE THE ADDRESS BITS 13-17 IN BITS 11-15 OF Rl 


3122 


007272 


00bl01 




ROL 


PI 




3123 


007274 


006143 




ROL 


-(R3) 


f PLACE BIT 17 IN LOCATION POINTED BY R3-2 


3124 


007276 


006101 




POL 


Rl 




3125 


007300 


006123 




ROL 


(R3) + 


JPLACE BIT 16 OF THE ADDRESS 


3126 


007302 


050113 




BIS 


Rl, (Rl) 


; PLACE BITS 13-15 OF THE ADDRESS IN LOCATION (R3) 


3127 


007304 


012601 




MOV 


(SPW,Ri 


; RESTORE Rl 


3128 
3132 
3133 
3134 
3135 
3136 


007306 


000207 


68 1 


BTS 


PC 


; RETURN FROM THE SUBROUTINE 








!# GET 


ADDRESS FROM THE 


APT MAILBOX 








f • 

f* 


THIS SUBROUTINE 


IS USED TO GET ADDRESS FROM APT MAILBOX AND 


3137 








J* 


PLACE IT IN THE 


LOCATION USED BY THE PROGRAM TO DEFINE THE 


3138 








f # 


MEMORY BOUNDPIES, 


3139 








1* 


PROGRAM CONTROL 


SHOULD COME TO THIS SUBROUTINE WITH Rl POINT- 


3140 








f * 


ING TO THE MEMORY TYPE IN THE APT MAILBOX AND R3 POINTING TO 


3141 








I * 


THE LOCATION+2 WHERE THE LOW ORDER BITS OF THE ADDRESS HAVE 


3142 








1* 


TO BE PLACED 




3143 
3144 








I* 






3145 


007310 


016143 000001 


GETADPt 


MOV 


1(R1),-(R3) 


; PLACE THE LOW ORDER BITS OF THE ADDRESS 


3146 


007314 


005043 




CLR 


«(R3) 


ICLEAR THE LOCATION WHERE THE HIGH ORDER BITS 


3147 












; have to be placed 


3148 


007316 


116113 177777 




MOVB 


-I CP1 ), (R3) 


JPLACE BITS 16 &, 17 


3149 


007322 


000207 


2SS 


RTS 


PC 


•RETURN FROM THE SUBROUTINE 
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DZKMAB, 


PI 1 


CONVERT 


3154 






3155 






3156 






3157 






3158 






3159 






3160 






3161 






3162 






3163 






3164 


007324 


105237 


3165 






3166 






3167 


007330 


012301 


3168 


007332 


011302 


3169 


007334 


042702 


3170 


007340 


052702 


3171 


007344 


006001 


3172 


007346 


006002 


3173 


007350 


103375 


3174 


007352 


105737 


3175 


007356 


001405 


3176 


007360 


105037 


3177 


007364 


052702 


3178 


007370 


000765 


3179 


007372 


012301 


3180 


007374 


012700 


3181 


007400 


040001 


3182 


007402 


000207 


3183 






3184 






3188 






3189 






3190 






3191 






3192 






3193 






3194 






3195 


007404 


105737 


3196 


007410 


001404 


3197 


007412 


005037 


3198 


007416 


105037 


3199 


007422 


000207 


3200 






3201 






3202 






3203 






3204 






3205 






3206 






3207 






3208 






3209 


007424 


010046 


3210 


007426 


010346 


3211 


007430 


042703 


3212 


007434 


052703 



* CONVERT 18 BIT ADDRESS TO THE PAR FORM 



THIS SUBROUTINE IS USED TO CONVERT 18 BIT ADDRESS STORED IN 



000315 
000100 





I * 


LOCATIONS 


POINTED BY R3 AND R3+2 TO THE FORM IT WILL BE 




1 * 


IN A PAR. 


THE RESULT IS LEFT IN R2, Rl IS LOADED WITH B 




I * 
I # 


0-12 OF THE ADDRESS AND R0 WITH 160000 


SGTSIZI 


INCB 


i#SAVKBB 


; PREPARE TO PLACE ADDRESS BITS 13-17 IN 








; 0»4 OF R2 


GETSIZ! 


MOV 


(R3)+,R1 






MOV 


(R3),R2 


J LOAD R2 WITH THE LOW ORDER BITS OF THE 




BIC 


#17777, P2 


; CLEAR ADDRESS BITS 0-12 


28 S 


BIS 


#40, R2 




481 


ROR 


Rl 






ROR 


R2 


1 ROTATE Rl AND R2 7 TIMES 




BCC 


48 






TSTB 


MSAVKBB 






BEQ 


68 






CLPB 


MSAVKBB 






BIS 


#100, R2 






BR 


48 




63: 


MOV 


(R3)+,R1 


jPLACE THE LOW ORDER ADDRESS BITS IN Rl 




MOV 


#160000, R0 




BIC 


R0,R1 


i LEAVE BITS 0-12 OF THE ADDRESS IN Rl 




RTS 


PC 


I RETURN FROM THE SUBRORNE 



!# SUBROUTINE TO DISABLE MEMORY MANAGEMENT 



177572 
000276 



I* 
J* 

TSTB 

BEQ 

CLR 

CLRB 

RTS 



THIS SUBROUTINE IS CALLED TO DISABLE THE MEMORY MANAGEMENT 

UNIT 



i#MMAVA 
18 

MSR0 
MMMAVA 

PC 



fWAS THE MEMORY MANAGEMENT ENABLED ? 

I IF NOT THEN GO TO 1$ 

{DISABLE THE MEMORY MANAGEMENT 

i AND DO NOT ATTEMPT TO TEST MEM, MANAG. 

I RETURN FROM THE SUBROUTINE 



!« GET BANK NO. UNDER TEST 

J CALLED BY ERRTYP AND TST13 TO GET BANK NO, 

f REGISTERS 

|R0«POINTFR TO PAR UNDER TEST 
|R3*VIRTUAL ADDRESS ON ENTRY 
IR0+R3 ARE RESTORED ON EXIT, 

GETBNKi MOV R0,-(SP) f SAVE R0 

MOV R3,-(SP) I SAVE R3 

BIC #17777, R3 t SAVE ONLY VIRTUAL BANK BITS 

BIS 110000, R3 f SETUP R3 SHIFT BIT 



UNDER TEST INTO PBNK, 
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SEQ 0070 



3213 


007440 


000241 




3214 


007442 


006003 




3215 


007444 


103376 




3216 


007446 


1 05737 


000276 


3217 


007 452 


001 407 




3218 








3219 








3220 


007 454 


006303 




3221 


007 456 


062703 


172340 


3222 


007462 


011 300 




3223 


007464 


006300 




3224 


007466 


000300 




3225 


H07470 






3226 


007 472 


010337 


0003 1 2 


3227 


007476 


01 2603 




3228 


007500 


01 2600 




3229 


007502 


000207 




3230 








3231 








3232 








3233 








3234 








3235 








3236 








3237 








3238 








3239 








3240 








3241 








3242 








3243 








3244 








3245 








3246 








3247 








3248 








3249 








3250 








3251 








3252 


007504 


032777 


004000 


3253 


007512 


001460 




3254 








3255 


007514 


012700 


000004 


3256 


007520 


012710 


000122 


3257 


007524 


060710 




3258 


007526 


005037 


000352 


3259 


007532 


012701 


172140 


3260 


007536 


012703 


100000 


3261 


007542 


010241 




3262 


007544 


050337 


000352 


3263 


007550 


000241 




3264 


007552 


006003 




3265 


007554 


103372 




3266 


007556 


012710 


000104 


3267 


007562 


005702 




3268 


007564 


001433 





ROR 


P3 


{SHIFT A BANK BIT 


BCC 


13 


{ UNTIL IN BITS <2l0> OF R3 


TSTB 


MMMAVA 


; MEMORY MANAGEMENT UNDER TEST? 


BEQ 


2$ 


{NO EXIT 


! ADDRESS AND PHYSICAL 


BANK NO, 


ASL 


R3 


{ MAKE R3 PAR ADDRESS OFFSET, 


ADD 


#172340, R3 


{ MAKE FULL PAR ADDRESS. 


MOV 


(R3),R0 


j GET PAR CONTENTS 


ASL 


R0 




SWAB 


R0 


fSHIFT BANK BITS TO BITS <7l0> 


MOVB 


P0,R3 


{ SET R3 TO PHYSICAL BANK NO, 


MOV 


P3,MPBNK 


{STORE PHYSICAL BANK NO, 


MOV 


(SP)+,R3 


{RESTORE R3 


MOV 


(SP)+,R0 


{ RESTORE R0 


RTS 


PC 


{ RETURN TO CALLER 



t PARITY EN ABLE /DISABLE ROUTINE 
» 

f THIS ROUTINE ENABLES OR DISABLES PARITY MODULES AND PRINTS ASSOCIATED MEASSAGES, 

J IF PARITY AVAILABLE THEN BIT13 OF "REL" IS SET AND "PAR" ITY IS PRINTED, 

I ALSO THE BACKGROUND TEST PATTERN (LOC, BAKpAT) IS SET=376 

t 

I REGISTER USAGE, 

»P0a POINTS TO BUS TIMEOUT TRAP VECTOR (LOC. 4) 
{Pis HOLDS PARITY MODULE UNIBUS ADDRESS, 
|R2= ON ENTRY HOLDS ENABLE/DISABLE CODE , 
{ IF R2*0 THEN DISABLE 

I IF R2»l THEN ENABLE 

»R3s SCRATCH TO SETUP LOC, PARMAP WITH A MAP OF PARITY MODULES PRESENT, 
{CALL IS 



MOV 


#1,R2 {ENABLE 


CODE 


JSR 


PC, PARITY 




BIT 


#4000, 3SWR 


{PARITY TEST WANTED? 


BEQ 


6S 


{BRANCH IF NO 


MOV 


#4,R0 


{POINT R0 TO BUS TIMEOUT ADDRESS, 


MOV 


#58-. -6, (R0) 


{SET RETURN FROM TIMEOUT TRAP TO 5$ 


ADD 


PC, (R0) 


{IN THE CURRENT BANK, 


CLR 


MPARMAP 


{CLEAR PARITY MAP HOLDER, 


MOV 


#172140, Rl 


{SET Rl TO LAST PARITY MODULE ADDRESS+2 


MOV 


#100000, R3 


{SET P3 TO PARMAP AVAILABLE CODE BEGIN, 


MOV 


R2,-(R1) 


{ ENABLE A PARITY MODULE+TRAP IF NOT AVAILABLE 


BIS 


R3,9#PARMAP 


{NO TRAP TO 5S, SO SET PARITY AVAILABLE, 


CLC 






ROR 


R3 


{ SETUP NEXT PARMAP BIT 


BCC 


2$ 


{BRANCH IF NOT DONE ALL PARITY ADDRESSES, 


MOV 


#BUSER, (R0) 


•RESET BUS TIMEOUT TRAP VECTOR 


TST 


P2 


{IS THIS A DISABLE CALL? 


BEQ 


68 


• BRANCH IF YES (EXIT) 
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3269 


007566 


005737 


000352 




3270 


007572 


001011 






3271 


007574 


004767 


176760 




3272 


007600 


047516 


050040 


051101 




007606 


000 






3273 




007610 






3274 


007610 


004767 


176322 




(1 ) 


007614 


P00053 






(1) 










3275 










3276 


007616 


152737 


000040 


000405 


3277 


007624 


012737 


000376 


000316 


3278 










3279 


007632 


004767 


176722 




3280 


007636 


040520 


044522 


054524 




007644 


000 






3281 




007646 






3282 


007646 


000405 






3283 










3284 










3285 











TST 9#PARMAP 

BNE 4$ 

JSR PCTPCRLF 

.ASCIZ /NO PAR/ 



.EVEN 

JSR 

53 



BISB 
MOV 



JSR 

a ASCIZ 



.EVEN 
BR 



PC, FATERR 



«40,$#REL 
#376,»#BAKPAT 



PCTPCRLF 
/PARITY/ 



{ WERE ANY PARITY MODULES FOUND? 
{BRANCH IF YES 
{ PRINT "NO PAR" 



{♦ERROR* REPORT ERROR MESSAGE AND HALT AT FATHLT 
;##*###ERROR NUMBER 53****»* 



{ SET PARITY UNDER TEST FLAG 
{SET BACKGROUND PATTERN TO 
{ WORST CASE PARITY CODE, 
{PRINT "TST PARITY" 



{ AND EXIT VIA RTS PC 



{GET HERE IF PARITY ADDRESS TIMED OUT TO LOC, 4 
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SEQ 0072 



296 
297 
298 
299 

300 

301 
302 
303 
304 
305 
306 
307 
308 
309 
310 
311 
312 



007650 022626 

007652 000737 

007654 142737 000040 
007662 

007662 000207 



325 
332 
333 
334 
335 
336 
337 
338 



SSI CMP 

BP 

000405 6SI BICB 
EXITCl 
7 S X RTS 



007744 000000 



(SP) + , CSPH 
3$ 



#40, g#REL 
PC 



j RESET STACK FROM TRAP 

i KEEP TRYING PARITY ADDRESES. 



f CLEAR PARITY TESTING FLAG 
1 RETURN TO CALLER 



jCHECKC 

j THIS ROUTINE CHECKS IF CONTROL-C WAS TYPED AT THE END OF EACH 

I TEST OR IN THE ERROR TYPE ROUTINE, 

I IF CONTROL-C TYPED THE PROGRAM IS RETURNED TO LOWER MEMORY IF IT WAS 
I RELOCATED AND THE ERROR HISTORY IS PRINTED OUT, 
} FINALLY IT HALTS AT FATHLT, 



3313 


007664 


105037 


000315 


CHECKCl CLRB 


P4SAVKBB 


lINIT CONTROL-C FLAG, 


3314 


007670 


105737 


177560 


TSTB 


f #TKS 


j ANY CHAR, TYPED? 


3315 


007674 


100372 




BPL 


EXITC 


} BR IF NO-EXIT VIA RTS PC" 


3316 


007676 


1 13702 


177562 


MOVB 


f#SKBB,R2 


I GET THE CHAR TYPED. 


3317 


007702 


042702 


000200 


BIC 


#200, R2 jCLEAP 


THE PARITY BIT. 


3318 


007706 


122702 


000003 


CMPB 


#3,R2 


jlS IT CONTROL-C? 


3319 


007712 


001363 




BNE 


EXITC 


1 BRANCH IF NO -EXIT VIA RTS PC- 


3320 


007714 


110237 


000315 


MOVB 


R2.PISAVKBB 


} ELSE STORE THE CHAR. FOR USE AS 


3321 


007720 


004767 


176634 


JSP 


PCTPCRLF 


5 PRINT ""C" 


3322 


007724 


041536 


000 


.ASCIZ 


/-c/ 




3323 




007730 




.EVEN 






3324 


007730 


000167 


175104 


JMP 


RELOER 


jGO RETURN PROGRAM TO LOWER CORE 



,b7744 

ENDPRGj 



A FLAG. 



fTHIS BEGINS THE STORAGE FOR THE ERROR HISTORY 
ISTACK.FOR EACH 4K BANK 18, BYTES ARE SAVED, 
fALSO THE ABSOLUTE LOADER AND XXDP CODE IS SAVED 
I AFTER THE ERROR STACK, 

jFOR 4K MEMORY SIZE THEN PROGRAMa7744+22=7776 
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ABASF a 


000000 


BRTPSZ 


001012 


NOTYP 


006444 


START 


000200 


SETABL 


000420 


ACDW1 s 


000000 


BUSER 


000104 


OCTTYP 


006720 


STRTDI 


000302 


SETEND 


000450 


ACDW2 = 


000000 


CHECKC 


007664 


OCTXT 


007036 


SWAPAT 


000320 


$FATAL 


000402 


ACPUOPa 


000000 


CKDONE 


005106 


ONEPAS 


000556 


SWHALT 


001664 


SGTSIZ 


007324 


ACTH 


005522 


CLRMEM 


001466 


PAPERP 


006216 


SWR 


000450 


IHD a 


000002 


ADDW0 a 


000000 


CLRMM 


007404 


PARFL 


005432 


SWREG 


000176 


SHIBTS 


000276 


ADDWi a 


000000 


CNTSCP 


001644 


PARITY 


007504 


SWU a 


004000 


SHIMAX 


000334 


ADDW10B 


000000 


CONT 


001526 


PARMAP 


000352 


TBL 


001600 


SKBB a 


177562 


ADDWI 1 s 


000000 


CONTMM 


005134 


PARPS 


000360 


TKS a 


177560 


SMADB1 


000432 


ADDW12* 


000000 


CTLC 


005570 


PARSP 


000356 


TPADER 


006374 


SMADR2 


000436 


ADDWI 3» 


000000 


DECWRD 


000312 


PASFLG 


000306 


TPCRLF 


006560 


$MADR3 


000442 


ADDWHs 


000000 


ENDPAS 


005276 


PBNK 


000312 


TPPPER 


006420 


SMADR4 


000446 


ADDW15* 


000000 


ENDPRG 


007744 


PC =%000007 


TPYSP 


001014 


SMAIL 


000400 


ADDW2 a 


000000 


ENDSTK 


000310 


PCPLF 


006546 


TSTGO 


001666 


SMAMS1 


000430 


ADDW3 s 


000000 


END0 


002132 


PNTMES 


006566 


TSTMM 


005120 


SMAMS2 


000434 


ADDW4 a 


000000 


ENDl 


002232 


PUTADR 


007220 


TSTREL 


001320 


SMAMS3 


000440 


ADDW5 s 


000000 


END10 


003772 


PWRDN 


000070 


TSTRP 


000570 


8MAMS4 


000444 


ADDW6 a 


000000 


ENDl 2 


004316 


PWRUP 


000136 


TSTSCP 


001632 


SMAXM 


000336 


ADDW7 a 


000000 


END2 


002342 


REL a 


000405 


TSTSIZ 


001324 


$MBADR 


000300 


ADDW8 a 


000000 


END3 


002610 


PELBOT 


000322 


TST0 


001702 


SMSGAD 


000414 


ADDW9 a 


000000 


END4 


002720 


RELOC 


004746 


TST1 


002134 


SMSGLG 


000416 


ADEVCTa 


000000 


ENDS 


003066 


RELOER 


005040 


TST10 


003446 


$MSGTY 


000400 


ADEVM a 


000000 


END6 


003222 


RESTRT 


000250 


TSTH 


003774 


SMTYP1 


000431 


AENV s 


000000 


END7 


003444 


PETMM 


007162 


TST12 


004046 


$MTYP2 


000435 


AENVM a 


000000 


ERROR 


005600 


RETSTK 


005336 


TST13 


004320 


$MTYP3 


000441 


AFATALs 


000000 


ERRTYP 


005716 


RETTYP 


006504 


TST2 


002234 


SMTYP4 


000445 


AMADRla 


000000 


EXITC 


007662 


RLODER 


005546 


TST3 


002344 


$NWTST« 


000001 


AMADR2s 


000000 


EXTYP 


006556 


RPTOCT 


006754 


TST4 


002612 


SPASS 


000406 


AMADp3a 


000000 


FAILNM 


005374 


RPT10 


003466 


TST5 


002722 


$PASTM 


000304 


AMADR4* 


000000 


faterr 


006136 


RPT11 


004032 


TST6 


003070 


SPRERR 


000300 


AMAMSls 


000000 


FATHLT 


006210 


RPT6 


003106 


TST7 


003224 


8RETMM 


007154 


AMAMS2" 


000000 


FATYP 


006764 


R0 s%000000 


TYPCNT 


000314 


$SVPC ■ 


000044 


AMAMS3s 


000000 


FNDEPR 


006064 


Rl a 


1000001 


TYPDEC 


006610 


SSWR s 


000000 


AMA M S4s 


000000 


GALLOP 


003472 


R2 a 


1000002 


TYPENB 


000277 


SSWREG 


000422 


AMSGAD= 


000000 


GETADF 


007310 


R3 ■ 


1000003 


TyPEOP 


005470 


STESTN 


000404 


AMSGLGa 


000000 


GETBNK 


007424 


R4 » 


1000004 


TYPERR 


006676 


8TN a 


000014 


AMSGTYa 


000000 


GETSIZ 


007330 


R5 s 


1000005 


TYPMEM 


001152 


8TPB m 


177566 


AMTYPla 


000000 


HIGHAD 


000332 


SAVKBB 


000315 


TYPOCT 


006730 


STPCHR 


006522 


AMTYP2* 


000000 


HIGHTW 


000330 


SAVLDR 


001242 


TYPSIZ 


001130 


$TPDEC 


006614 


AMTYP3a 


000000 


LOOP 


001536 


SAVLOC 


000354 


TYPSTK 


005316 


ITPNUM 


006766 


AMTYP4a 


000000 


LOWADD 


000326 


SAVMAX 


000342 


UPMM 


007212 


$TPS a 


177564 


APASS a 


000000 


LOWBNK 


000304 


SAVR0 


006370 


WRTMEM 


000120 


ITPSTK 


005306 


APRIORa 


000000 


LOWER 


005112 


SAVP1 


006372 


$A s 


000001 


8TSTM 


000302 


APTHLT 


006202 


LOWTWO 


000324 


SAVR4 


000344 


IADERR 


000301 


STYPE 


006460 


APTSIZ 


000724 


M s 


000200 


SAVR5 


000346 


IAPTHD 


000276 


8UNIT 


000412 


ASWREGa 


000000 


MAXADR 


005224 


SAVR6 


000350 


$CNTMM 


005140 


8UNITM 


000306 


ATESTNa 


000000 


MAXMEM 


000340 


SCOPE s 


000240 


ICPUOP 


000426 


IUSWR 


000424 


AUNIT 9 


000000 


MEMMNG 


007040 


SEQERR 


006136 


SDEVCT 


000410 


IZ « 


000362 


AUSWR a 


000000 


MEMTST 


001460 


SETSTK 


001164 


SDOAGN 


005542 


fZZ a 


007734 


AVECTls 


000000 


MMAVA 


000276 


SETSWR 


000656 


IENDAD 


000156 


$|M a 


000200 


AVECT2" 


000000 


MMREG 


007044 


SLFSIZ 


001024 


SENV 


000420 


,SX a 


000276 


BAKPAT 


000316 


N a 


000054 


SP a%000006 


8ENVM 


000421 


i 9 


007746 



ERRORS DETECTED! 
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SEQ 0074 



DEFAULT GLOBALS GENERATED! 

#DZKMAB,DZKMAB*DZKMAB.P11 
RUN. TIME! 25 26 ,8 SECONDS 
RUN-TIME PATIO! 104/54*1 .9 
CORE USED! 12K (23 PAGES) 



